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ID 

PCL - Executive Routine of PCL Processor 

PURPOSE 

PCL provides for processing of user commands which direct information movement between 
input and output devices. The Executive Routine is the main driving routine for the PCL 
subsystem. 



OVERVIEW 

PCL reads each user command, identifies the command action verb, and transfers control 
to the appropriate subroutine for each legal action verb. Control is always returned to 
PCL after each command is processed by its subroutine. 



USAGE 

The PCL subsystem is called on-line from TEL with one of the following two commands: 

!PCL ((e1 



or 

•COPY... (RE 



If a PCL command is used, PCL reads commands through the M:SI DCB until an END 
command is read which causes a return of control to TEL. PCL exits to TEL immediately 
after processing a TEL COPY command. PCL may also be called in batch mode by a 
!PCL control card. 



INPUT 



External data references: 

J: JIT - used for on-line/batch testing. 

J:CCBUF - TEL command is moved from this buffer to internal buffer CMDBUF. 

M:EI - file name is extracted if break occurs while processing a COPYALL 

or DELETEALL command. 
M:UC - DCB used for printing on-line messages. 

M:LL - DCB used for printing batch command. Closed before exit from PCL. 

M:LO - if assignment differs from that for M:LL, the batch command is also 

printed through this DCB. Closed before exit from PCL, 
M:DO - closed before exit from PCL. 

M:SI - DCB used for reading on-line and batch commands. 



Internal data references: 

ARGBUFF - argument buffer 

TERM - terminator of current argument 

D2 - register 13 - maximum error severity 

PCL control commands via M:SI. 



OUTPUT 



RO 

R7 

Dl - register 12 

CMDBUF - 

CMBX 

MAXCMBX - 

BUFSIZE - 

ERCMDBUF - 

BREAK 

ERRFLAG - 

lOERR 

PREVACT - 

FPARAM - 

SFACCT - 

COPYSTDF - 

COPYSK - 
FROMFILE - 

RDTBL 

TOFILE 

WRTBL 

COPYPHY - 



initialized to zero. 

set to address of data base page obtained by a Get Page CAL. 

- current action code 

control command buffer 

CMDBUF index 

maximum CMDBUF index 

l/O buffer size 

buffer for command line error pointer 

break flag. Initialized to before each command. 

table of keys to ERRMSG file 

I/O error flag. Initialized to before each command, 

previous action code 

receiving buffer fdr file name copied from M:EI DCB 

standard file account flag. Initialized to before each command. 

COPYSTD flag. Initialized to before each command. Set to 

1 if COPYSTD command. 

COPYALL select flag which is initialized to 0. 

base address of 'from' value of a range specification. Initialized 

to before each command. 

address of table used when read accounts are specified. Initialized 

to before each command, 

base address of 'to' value of a range specification. Initialized to 

before each command. 

address of table used when write accounts are specified. Initialized 

to before each command. 

PHY option flag which is initialized to 0. 



INTERACTION 



Modules used for command processing: 



COPYALL 

COPYTO 

PCLLIST 

PCL 



COPYALL or COPYSTD command 

COPY command 

DELETE, DELETEALL, REW, REMOVE, SPE, SPF, WEOF, and 

LIST commands 

TABS or REVIEW command 



Other modules used: 

PRTERR 
ERROR 
GETARG 
UTILITY 



print" error messages, 

report errors. 

get command verb. 

print file name (UNPRINT). 



Monitor services used (handwritten CALs and FPTs): 



M:GP 
M:PC 
M:INT 
M: WRITE 

M:READ 
M:DEVICE 

MrCLOSE 
M:TRTN 



get page from data base. 

set prompt character to <. 

set break control. 

write output through M:UC (on-line) or through M:LL and M:LO 

(botch). 

read user command through M:SI. 

skip to top of form, compare M:SI and M:UC (on-line only), 

or compare M:LO and M:LL (batch only). 

close M:LO, M:LL, and M:DO DCBs. 

return from break routine. 



Monitor services used (procedures): 



M:EXIT 
M:ERR 



normal exit to TEL. 

exit if error return from M:GP. 



DATA BASES 



The following data base is established and initialized by PCL. Most routines in the PCL 
subsystem access this data base. 



RSTACK 



+2 - 



SYNFLAG - 
BUFSIZE 
ERCMDBUF - 
ARGBUFF 
ARGTBL 



doubleword stack pointer into the 51 1-word data buffer. 

heading flag 

if zero, no synonym encountered by COPYALL. If 

nonzero, synonym encountered, 

byte size of dynamic buffer (lOBUF) used by routine 

RDWRT. 

thirty-five-word buffer used to contain pointer to scan 

position if error is encountered. 

eight-word buffer containing the current argument in 

TEXTC format. Set by GETARG scan routine. 

thirty-six-word table of values and codes whose layout 

is described by the following six symbols. 

DEVICE device ID code set by DEVTRAN (first 

word of ARGTBL) 
+ 1 number of reel numbers if tape device 

set by DEVTRAN. 
+2 CMBX value of first reel number set by 

DEVTRAN 

FILE file type indicator: 

1 - name 

2 - name and account 

3 - name, account, and password 
6 - account only 

(fourth word of ARGTBL). 
+ 1 CMBX value of file name set by FILTRAN. 
Set to point to account if above indicator 
is 6. 

CODE data conversion types set by COPYTRAN 

(sixth word of ARGTBL). 

MODE BCD/BIN mode set by COPYTRAN (seventh 

word of ARGTBL). 
+ 1 7T/9T mode set by COPYTRAN. 
+2 byte - RD/WR mode 

byte 1 - K mode 

byte 2 - TX mode 

byte 3 - PK/UPK mode 



CMBX 
CMDBUF 
DCBADD 
DVLARG 

ERRFLAG 

INSWT 
lOERR 

MAXCMBX 

NCHAR 

NPAGE 

PREVACT 

RDFPT 

TERM 
TOARG 

TOSWT 



+ 1 - 



+3 byte - SSP/DSP/VFC mode 
byte 1 - NC/CR mode 
byte 2 - FA/NFA mode 
byte 3 - DEOD mode 

SEQUENCE card sequencing type code (eleventh word 
of ARGTBL). 
+ 1 four-character EBCDIC identification 
+2 starting sequence value 
+3 incremental value 
+4 maximum sequence value 

SELECT number of record selection specifications 

(sixteenth word of ARGTBL). 
+ 1 low value of first record selection 
+2 high value of first record selection 

I I pairs of low and high values of sub- 
+ 19 I sequent record selections 
+20* 

current byte index into CMDBUF 

thirty-five-word command buffer for all PCL commands 

current DCB address set by BLDCB routine 

thirty-six-word table of device arguments set by COPYTRAN 
routine. Same layout as ARGTBL. 

number of error messages to print which is set by ERROR routine, 
nine-word table of EDIT-type keys into the ERRMSG file. Set 
by ERROR routine, 
flog indicating if M:EO is closed (0 = open, 1 = closed). 

contents of SR3 returned by the file management system on an 
error or abnormal condition. 

maximum value of CMBX for the current command 

number of characters in' the argument in ARGBUFF 

number of pages of core required by BUFSIZE 

previous action verb code set by subroutine TRANSACT. 

six- word area reserved for FPT set up for Read CALs by 
RDWRT routine. 

current termination character set by GETARG routine. 

fifteen-word buffer to save TO arguments (DEVICE through 
SEQUENCE+4). 

flag indicating if output device has been defined (0 = not 
defined, 1 = defined). 



WRTFPT - eight-word area reserved for FPT set up for write CALs by 

RDWRT routine. 
TOVER - acMon code for TO or OVER 

PRNTBUF - twenty-four-word print buffer used by HEXDUMP routine. 

RECNUM - current record number set by RDWRT routine 
SAVCMBX - backup pointer in CMDBUF set by FIXARG routine 
lOBUF - I/O buffer origin 

FPARAM - FPARAM buffer used by BLDCB routine for OPEN CAL 

OPNFPT - FPT buffer used by BLDCB rouHne for OPEN CAL 

PRTBUF - error message buffer used by PRTERR routine. Also used 

output buffer by LIST routine, 
BREAK - BREAK key flag (0 = no break, nonzero = break). 

STACK - buffer used as register save area and break control buffer, 

ATTRB - attribute flag used by LIST routine, 

^ DELIM - index into delimiter table in GETARG (normally 0) 

RDACCT - table of read accounts set up by LIST routine (same location 

as SELECT). 
WRTACCT - table of write accounts set up by LIST routine (same location 

as PRNTBUF). 
CARDSEQ - two-word sequence information if CS option is used. 
KEY - edit key which is set if LN option is used. 

TABSET - a five-word table containing the settings specified on a PCL 

TABS command and the address of the TABS table. 
RSSAVE - save word for the number of record selections, 

SYNONYM - SYNON flag used in listing attributes, 
SFCNT - count of files copied on a COPYSTD command. 

CIBUSED - number of bits used in record being converted from compressed 

to symbolic. 
CIBLEFT - number of bits left in record being con/ erted from compressed 

to symbolic. 
CIBTOTAL - total number of bits to be processed in an input compressed 

record. 
CIWORD - address of current compressed word being converted to symbolic. 

RECSIZE - true size of input record 

CISEQ - sequence number used for checking sequencing of compressed 

input. 
COBUSED - number of bits used in record being compressed. 
COBLEFT - number of bits left in record being compressed. 
COWORD - address of current compressed word in output buffer 
COPYSTDF - COPYSTD flag 
LINENO - location equal to three words less than lOBUF. Contains 

reconstructed edit key when K option is used, 
STRDFPT - area reserved for standard file read FPT, 

SFACCT - standard file account flag 

SEQNUM - location equal to two words less than LINENO. Contains 

record sequence number which prints when K option is used. 
SCRATCH - contains serial number of scratch tape or 0. 



SFTEMP - contains name of the temporary standard file (for COPYSTD) 

if one was created. 
SFDEV - a two-word area containing the input and output device codes 

for a COPYSTD command. 
DELETEF - flag set nonzero if REVIEW command used on-line. 

FROMFILE - an eight-word buffer containing the 'from' field on a REVIEW, 

COPYALL or DELETEALL command. First word set to 1 if 

field is null. 
TOFILE - an eight-word buffer containing the 'to' field on a REVIEW, 

COPYALL or DELETEALL command. First word set to 1 if 

field is null. 
RDTBL - two-word table containing count of read accounts (on COPY 

or COPYALL) and CMBX value of first account. 
WRTBL - two-word table containing count of write accounts (on COPY 

or COPYALL) and CMBX value of first account. 
DATETBL - eight-word table of dote attributes from VLP 

COPYSK - COPYALL select flag. Set negative if range given on 

DELETEALL. 
EATTRB - extended attribute flag (EA option) 

SFARG - save area for standard file argument table. 

LISTCMBX - save word for current scan pointer for LIST command with 

multiple fids, 
LISTTERM - save word for current delimiter for LIST command with 

multiple fids. 
FROMCMBX - pointer to end of 'from' field of range specification 
COPYPHY - PHY (physical order on tape) option flag 
GRANCNT - granule count when listing attributes of a directory. 
TLABEL - sixty-four-word tape label buffer. 



SUBROUTINES 



ACTION ACTION is called by the PCL Executive Routine to control the command 

processing. Previously, only the first three characters of the command 
were identified. ACTION scans further to distinguish DELETE from 
DELETEALL and COPY from COPYALL and COPYSTD. Upon entry, Dl 
(register 12) contains the code for the action verb. ACTION selects the 
appropriate command processing routine based upon the action code in 
Dl and the additional scan mentioned above. Before and after calling the 
LIST processor, a top-of-page Device CAL is issued if M:LO is assigned 
to the line printer. 



TRANSACT TRANSACT saves ^he previous action verb code from Dl in PREVACT. 
This is necessary in order that the COPYTO routine can perform a 
TO/OVER test. GETARG is called to place the action verb in ARGBUFF 
and FIXARG is called to check for a legal action verb. Only the first 
three characters of an action verb are checked; this is sufficient to 
identify the action verb. An ON action verb is set to the same code as 
a TO. Blank termination of the action verb is always legal. A test is 
made for each action verb that should not be terminated by a blank. If 
none of these, an action verb code of zero is set to indicate an error to 
the calling routine. 

All other subroutines used by PCL are described in the subsections which follow. These are 
listed in the Table of Contents. 

ERRORS 

'UNDEFINED COMMAND ACTION VERB' 
Issued if error return from subroutine TRANSACT. 

DESCRIPTION 

PCL first obtains the data base page with a GET PAGE CAL. The page is then zeroed. 
BUFSIZE is initialized at half a page (4*256 words). The upper half of the data base page is 
the origin of the input/output buffer. RSTACK is initialized as a doubleword stack pointer, 
pointing to the 51 1-word stack buffer, STACK. 

In on-line mode, BREAK control and the prompt character are set by monitor CALs. The 
contents of JrCCBUF is copied into CMDBUF. MAXCMBX is set up according to the character 
count of the command in JrCCBUF. CMBX is initialized at the first character position of 
CMDBUF and ERCMDBUF is blanked. TRANSACT is called to identify the command action 
verb. Otherwise, control goes to ACTION to process the TEL COPY command and control 
returns to TEL. 

When called as a processor, PCL identifies itself with the 'PCL version HERE' message, if 
in on-line mode, and reads the first command directly into CMDBUF. In on-line mode, the 
assignment of M:SI is compared to that for M:UC. If they differ, the command, preceded by 
a prompt character, is printed through M:UC. MAXCMBX, CMBX, and ERCMDBUF are initial- 
ized as above. In addition, ERRFLAG and lOERR are zeroed. TRANSACT is called to identify 
the action verb. At ACTION, the proper subroutine is called to process the command. Upon 
return from command processing, a check is made to determine if the BREAK key was hit. If 
the BREAK key was hit and the last command was a COPYALL, COPYSTD, or DELETEALL, the 



name of the last file completely copied or deleted is printed. If during the processing of 
the command no errors were detected, control goes back to read the next commarxJ. If 
D2 is greater than one, an error was detected and the subroutine, PRTERR, is called to 
print the error message. After returning from PRTERR, control goes back to read the next 
command. The END command is processed by writing the message 

'PCL PROCESSING TERMINATED' 

(batch only), and returning control to TEL. 
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ID 

COPYTO - COPY Command Processor 

PURPOSE 

To perform a syntax analysis of the COPY command. COPYTO calls the RDWRT routine 
to perform the file copy. For copying files in a standard file, entry is made at COPYSF 
from COPYALL. 

USAGE 



Calling sequence: 

BAL, SR4 COPYTO 
or 

BAL, SR4 COPYSF 

Input and output registers: 



Dl (reg. 12) - command action code 
D2 (reg. 13) - maximum error severity 



INPUT 



PREVACT 
TERM 
BREAK 
FILE 
TOARG 
*FPTPROMT 
M:EI 
M:UC 
PRNTBUF 
COPYSTDF 
J:JIT 



previous action verb code set by TRANSACT subroutine 

current termination character set by GETARG routine 

break key flag 

file ID indicator 

table of output arguments 

FPT for M:PC CAL to set '<' prompt. 

DCB used for input. 

DCB used for writing on-line messages. 

address of buffer containing standard file record 

COPYSTD flag 

tested for on-line/batch mode. 



UTS only 



16 



OUTPUT 



CMBX 

INSWT 

TOSWT 

TOVER 

AAAXCMBX 

lOERR 

SFCNT 

DEVICE 



current byte index into CMDBUF (or PRNTBUF for standard files) 

set to zero if M:EO is open, otherwise, set to one. 

set to zero if output is defined, otherwise, set to one, 

COPY TO/OVER flog 

set to the 80th character of PRNTBUF as a scan limit. 

set to if I/O error 3 or X'14' occurs on opening a file 

named in a standard file. 

count of standard files which is incremented by one for 

each file copy. 

set to code for ME if output not defined. Set to code for 

DC if device label used as file name in standard file input. 



INTERACTION 

Modules used: 

BLDCB 
UTILITY 



FILTRAN 

COPYTRAN 

PCL 

ERROR 

RDWRT 



build input (M:EI) or output (M:EO) DCB. 

close M:EI (CLOSEI), close M:EO (CLOSEO), clear argument 

table (CLRARG), release excess I/O buffer space (RELPAGES), 

or save output arguments (REVARG). 

translate file identifier (COPYSTD only). 

scan input or output arguments on COPY command, 

translate second action verb (TRANSACT). 

report error condition. 

copy file. 



Monitor services used (handwritten CALs and FPTs): 



*M:PC 

*Adiust DCB - 

*M:WRITE 



set prompt character to '. ' or '<' 
remove password from M:EI DCB. 
write '..COPYING' to UC. 



ERRORS 



'EH?' Input or output argument field is not terminated by a blank or 

carriage return. 

' "TO" OR "OVER" NOT SPECIFIED' 
Self-explanatory. 

'NO DEFINED OUTPUT DEVICE' 

Output arguments are not defined for the COPY command (batch only). 



UTS only 
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DESCRIPTION 

The COPY command is completely scanned and checked for syntax errors before any I/O 
fakes place. If no errors are encountered, a second scan takes place, and the Input de- 
vice specifications are copied to the output device specification in order of appearance 
on the command. 

The CMBX value of the first input specification is saved in SR2. COPYTRAN is then 
called to translate the first device and file, if present. Each subsequent input device/ 
file is translated by COPYTRAN. The scan is terminated if an error of severity level 3 
is detected by COPYTRAN. If no output specification is on the COPY command, control 
goes to address TO! where translation for I/O takes place. If an output specification is 
present (i. e. , TO or OVER action verb present on the command), the output device is 
translated by COPYTRAN which checks for errors. The CMBX value of the output device 
is saved in SRI. 

The COPY-TO COPY-OVER determination is made by adding the two command action verb 
values. COPY-TO is equal to 3, COPY-OVER is equal to 14. The value is placed in 
TOVER and is used by BLDCB to ensure that in the case of COPYTO the output file does not 
exist. 

If present, the output specification is translated by COPYTRAN. The defined output 
specification flag, TOSWT, is set and the M:EO DCB closed flag, INSWT, is set. The 
TO arguments are then placed in the TOARG table by subroutine REVARG (in module 
UTILITY). The first input specification is then translated by COPYTRAN, the returned 
CMBX value and the next argument level flag must be saved in SR2 and R5, respectively, 
in order to translate subsequent input device/file specification by COPYTRAN. 

A severity level of three prevents further processing of the copy. 

When the input device is a file type, the M:EI DCB is opened with the FPARAM option set. 
If a new output device is specified, the parameters for its specification are put into ARGTBL, 
and BLDCB is called to open the new output DCB. REVARG is then called to put the output 
arguments into TOARG and the input arguments into ARGTBL. If input is from the terminal, 
an M;PC CAL is issued to change the prompt character to a period. Subroutine RDWRT is 
called to execute the read-write CALs to accomplish the copy. Upon return from RDWRT, 
the prompt character is restored to a '<' if input was from the terminal. The input DCB is 
closed by subroutine CLOSEI (in module UTILITY). A check is made to determine if additional 
device/files are to be copied. If so, each device/file is translated by COPYTRAN and 
RDWRT is called to perform the copy. When the copy is complete, all excess buffer space 
is released back to the monitor. Control is then returned to the executive routine PCL, 

A special entry is made to COPYSF from the COPYALL routine to perform a standard file 
copy. The scan portion of COPYTO is skipped; only the portion which performs the I/O is 
used. If any files named within the standard file are nonexistent or are passworded, this con- 
dition is reported by the message 

'CANNOT FIND OR ACCESS FILE xxx' 
and processing of the standard file continues. 
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COPYALL - COPYALL or COPYSTD Command Processor 

PURPOSE 

To scon the COPYALL or COPYSTD command for correct syntax. If the command is 
COPYALL, all files or a specified subset of the files on RAD (in user's account or another 
account), on labeled tape, or on disk pack are copied to the specified output device. 
If the command is COPYSTD, the file itself and all files named within the file will be 
copied from RAD, labeled tape, or disk pack to the specified output device. 

USAGE 

Calling sequence: 

BAL, SR4 COPYALL 

Input and output registers: 

Dl (reg. 12) - code for command action verb 
D2 (reg. 13) - maximum error severity 



INPUT 



BREAK 

lOBUF 

M:EI 

J:JIT 

M:LO 

M:UC 

TLBLSIZE 

ARGTBL 

F:STD 

PRNTBUF 

ARGBUFF 

FROMFILE 

M:EO 

NCHAR 

TOFILE 



If on, BREAK key has been depressed. Immediate exit is made 

to the executive, 

address of I/O buffer used in performing reads and writes for 

copying files. 

input DCB constructed by BLDCB routine. 

used for on-line/batch mode testing. 

DCB used for printing batch messages. 

DCB used for printing on-line messages. 

size, in bytes, of tape label buffer 

argument table for cur.rent device specification 

DCB used for reading standard file. 

buffer used for reading standard file input. 

buffer containing current argument. 

buffer containing 'from' value of range specification. 

element output DCB 

number of characters in current argument 

buffer containing 'to' value of range specification. 
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OUTPUT 



CMBX 

SYNFLAG 
TLABEL 

TOSWT 
COPYSTDF 



DEVICE 

INSWT 

SFARG 

SFCNT 

STRDFPT 
TOARG 

COPYSK 

FILE+1 

FPARAM 

GRANCNT 

MODE+1 

SAVCMBX 

SFDEV 

SFTEMP 
TERM 



index into command buffer CMDBUF or into standard 

file buffer PRNTBUF 

flag indicating if synonym names are present. 

set to size of tape label buffer if input is from labeled 

tape; otherwise, set to zero, 

set to zero to indicate no previous output specification. 

flag which is set nonzero to indicate COPYSTD command 

was input. Value is normally positive but is set negative 

to indicate to routine BLDCB that F:STD is to be opened. 

set to three to indicate standard file is to be copied to or 

read from RAD. 

set to one to indicate to routine COPYTO that a new output 

file is required. 

save area for the argument table containing codes required 

for reading the standard file. 

count of files copied for a COPYSTD commarKl, including 

the standard file itself. 

FPT for reading standard file. 

location of output device code. Reset to value saved in 

SFDEV+1. 

select flag which is initialized to X'40' for copying all files. 

set to BA(SFTEA^) if temporary standard file is created. 

buffer for formatting NAME = xx if output is to a list device. 

temporary storage for code for 7T mode on input 

word in argument table which is set to code for 71 mode. 

backup pointer which is set to CMBX value when DC is 

optional. 

two-word area set to the device codes on a COPYSTD 

command. 

set to temporary file name formatted from job ID. 

set to terminator of command verb. 



INTERACTION 



Modules used: 



BLDCB 
UTILITY 



build input or output DCB and open the file, 
zero ARGTBL (CLRARG), close M:EI (CLOSEI), close M:EO 
(CLOSEO), release excess ]/0 buffer space (RELPAGES), 
print summary message (PRTNOF), move file name to buffer 
(UNPRINT), or save input or output arguments (REVARG). 



DEVTRAN 

ERROR 

RDWRT 



translate device label to device code, 
report error condition, 
copy file. 
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PCL 

COPYTO 
COPYTRAN - 

COMBINE - 

GETARG 

PCLLIST 



translate second action verb (TRANSACT) or process 

range specification (REVIEW). 

entered at COPYSF to copy standard file. 

translate file ID on COPYSTD command, or scan read 

and write accounts (RWACCT). 

check for valid option combinations. 

get next argument from command. 

test if file is in range (TESTFNC). 



Monitor services used (handwritten CALs and FPTs): 



M:OPEN 
M: WRITE 

M:SETDCB 

M:READ 

M:CLOSE 



open next file in user's or specified account. 

print 'CAN NOT ACCESS FILE xxx' through M:UC 

(on-line) or through M:LO (batch). 

set error and abnormal addresses in M:EI DCS, 

read standard file. 

close standard file. 



ERRORS 



•INVALID DEVICE TYPE FOR THIS COMMAND' 

A device label other than DC, DP, or LT was specified as an input device. 

'REEL NUMBER SPECIFICATION NOT VALID FOR THIS DEVICE' 
A reel number was specified with the DC option. 

'EH?' 

The input specification is not delimited by a blank. Also issued if 'TO' is 
not specified on the command. 

•IMPROPER TERMINATION OF THE COMMAND' 
Self-explanatory. Processing continues. 

•CAN NOT ACCESS FILE xxx' 

Printed if a file cannot be accessed due to a password restriction (COPYALL 
only). Processing continues. 

'CAN NOT FIND OR ACCESS FILE xxx' 

Printed if a file named in a standard file is nonexistent or has restricted access. 
Processing continues. 

'INVALID OPTION FOR COPYALL' 
Sel f-expl anatory . 
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DESCRIPTION 

The COPYALL or COPYSTD command is complefely scanned and checked for syntax 
errors before any I/O is performed. If no errors are encountered, a second scan takes 
place, and if the command is COPYALL, the files are copied from the specified input 
device to the specified output device. 

The CMBX value of the input specification is saved in SR2. If the command is COPYSTD, 
COPYTRAN is called to translate the input field. For a COPYALL command, CLRARG is 
called to zero the argument table and DEVTRAN is called to translate the input device. 
If a range specification is present, subroutine REVIEW is called to process it. If options 
are present on input, control goes to COPYSEL to process the options. If the "end of com- 
mand" does not follow the input field, TRANSACT is called to scan the next field which 
must be 'TO'. The output specification is scanned by first saving the CMBX value in SRI, 
then calling CLRARG to zero the argument table. DEVTRAN is called to translate the 
output device. If output options are present, they must be RD, WR, or 71, If the RD or 
WR option is used, subroutine RWACCT is called to process the specified accounts with 
each option. The command is not honored if an error of severity level 2 or 3 is detected. 

The copying of files actually begins at program label FROM!. CMBX is set to the value 
saved in SR2. Control goes to COPYSTD for executing a COPYSTD command. The argume 
table is zeroed by CLARG, the device code 'DC is indicated to be optional, and DEVTRAl 
is called to translate the input device specification. The file count in SR2 is initialized to 
zero, and BLDCB is called to build the M:EI DCB with the open next and FPARAM options. 
The input arguments are moved from ARGTBL to TOARG by the REVARG routine. If the 
output field is not null, it is processed by setting CMBX to the value in SRI, calling CLRAf^ 
to zero the argument table, and then calling DEVTRAN to translate the output device spec 
fication. If a file range was specified, subroutine TESTFNC is called to test if the current 
open file is within range, and, if not, it is skipped. A further test is made to determine if 
files are being selected by organization type (SEQ, KEY, or RAN option) and, if so, to te: 
if this file qualifies for selection. If the file is wanted, BLDCB is called to build the M:EC 
DCB with the open next and FPARAM options. The input options are restored by calling 
REVARG to exchange ARGTBL and TOARG. RDWRT is called to perform the file copy. Tl 
M:EI and M:EO DCBs are closed by calling CLOSEI and CLOSEO, respectively, and the fi 
count in SR2 is incremented by one. If errors have occurred, or if the BREAK key has beer 
depressed, an immediate exit is made at this point. 

If input is from labeled tape, the size of the tape label buffer is computed and set in TLABr 
The routine continues to loop by issuing an open next CAL for the input file, testing if the 
file is wanted, calling BLDCB to create the output DCB, and calling RDWRT to copy the fi 

The error severity level and break action are tested after each file copy. 
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If a synonym abnormal return occurs (code 08), SYNFLAG is set to indicate presence 
of synonym names. At end of directory (code 02), this flog is tested, and if synonyms 
are present, the synonym files are placed on the output device. Return is then made 
to the PCL executive. 

If a file cannot be opened due to password restriction, the message 

'CAN NOT ACCESS FILE XXX' 
is printed and the routine continues by attempting to open the next file. 

The COPYSTD routine is entered after the syntax scon of a COPYSTD command is complete. 
COPYTRAN is called to translate the input field and BLDC6 is called to open the standard 
file. This file will be copied to the output device unless the form 

'COPYSTD X TO DC 

is used, where X is in the user's account. If the copy is LT to LT, the file is copied a 
second time to RAD as a temporary file. The standard file is then closed and re-opened 
through the F:STD DCB, thus freeing M:EI and M:EO for the individual file copies. The 
standard file is read, and each record is treated by the COPYTO routine as if it were the 
input field of a COPY command and this routine will perform the I/O. A count of files 
copied is kept in SFCNT, and processing continues until end-of-file occurs in reading the 
standard file. 

Before returning to the PCL executive, subroutine PRTNOF (in module UTILITY) is called 
to print the message 

'..NNNN FILES COPIED'. 
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ID 

LIST - LIST Command Processor 

PURPOSE 

To scan the LIST command for correct syntax and to list the names of files on RAD, disk 
pack, or tape as specified by the command. If attributes are requested for single files 
or a file directory, the organization, record count, size in granules, and modification 
date for each file are listed. Date attributes ore also listed if the EA option is used. 
This routine is also entered to process a REVIEW command. A tape may be identified 
by the 'LIST FT*sn' command. 

USAGE 

Calling sequence: 

BAL,SR4 LIST 
Input and output registers: 

D2 (reg. 13) - maximum error severity 



INPUT 



ARGBUFF 

CMBX 

FPARAM 

J:JIT 

M:EI 

M:LO 

M:UC 

NCHAR 

TERM 

COPYPHY 

FROMFILE 



argument buffer 

index into command buffer 

location of VLP list 

used for testing if on-line or batch mode. 

element input DCB 

DCB used for all output for LIST command. 

terminal I/O DCB 

number of characters in current argument 

current termination character set by GETARG routine 

flag set if PHY option was used. 

buffer containing 'from' field of range specification. 



OUTPUT 



ATTRB 
BREAK 

lOERR 



attribute flag (-1 = directory, Q'= none, 1 = fid) 
set to zero before exiting if it has been set nonzero 
due to break action. 

I/O error flag which is zeroed to suppress an error 
message for an access problem (abnormal X'14'). 



24 



MODE+1 

PRTBUF 
RDACCT 

SAVCMBX 
DELETEF 
EATTRB 
GRANCNT 

LISTCMBX 
LISTTERM 
WRTACCT 

COBUSED 
lOBUF 

OPNFPT 



SYNFLAG 

SYNONYM 
TOFILE 



DEVICE 
INTERACTION 



word in MODE table which is set to 3 for 7T 

option or 4 for 9T option. 

print buffer used for LIST command output 

table of read accounts extracted from the VLP 

list and headed by a count 

save word for CMBX, 

flag set if on-line REVIEW. 

flag set if EA option is present. 

count of granules when listing attributes of a 

directory 

save word for scan pointer. 

save word for terminator of last fid. 

table of write accounts extracted from the VLP 

list and headed by a count. 

save word for error severity. 

buffer used for listing synonym files and read and 

write accounts. 

FPT for opening files on labeled tape for 'LIST 

FT"^sn' command. The serial number and account 

are obtained from the tape and entered into the 

FPT. 

save word for the month when formatting date 

atrributes, 

set to save address for synonym file name. 

buffer containing 'to' field of range specification. 

Bit Q of first word is set when end of range is 
reached. 

device ID code which is initialized to 3 to indicate RAD file. 



Modules used: 



BLDCB 

DEVTRAN 

ERROR 

FILTRAN 

GETARG 

UTILITY 



build M:EI DCB and open first file. 

translate device label. 

report error condition. 

translate file identifier 

get next argument 

convert binary to BCD (BIN2BCD), convert BCD to 

binary (BCD2BIN), enter file name in buffer 

(UNPRINT), close M:EI (CLOSEI), zero argument 

table (CLRARG), or print number of files listed 

(PRTNOF). 
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Monitor services used (handwritten CALs and FPTs): 



M:SETDCB - 
M:WRITE 

M;PRECORD - 

M:OPEN 

M:REW 
MrPFIL 
M:READ 

M:CLOSE 
Adjust DCB CAL 



set error and abnormal addresses in M:EI and M:EO DCBs. 

write all LIST command output through M:LO. Also used to write 

messages through M:UC (on-line) or through M:LO (batch). 

used to determine the number of records in a file. Also used 

to backspace over tape header records. 

open next file in specified account. Testfile bit is set if listing 

a directory (UTS only). 

rewind tape. 

space forward over tape header file. 

read label and account records from tape. Also used to read 

reply to file name on REVIEW command (UTS only). 

used to remove tape read as free-form tape before reading it 

as labeled tape. Also used to delete file on REVIEW command 

(UTS only). 

used to remove password from M:EI DCB. 



SUBROUTINES 



TESTFN 



This subroutine is entered for a REVIEW, DELETEALL or COPYALL 
command to test if the file name in the M:EI DCB is within the 
specified range. If the file is within range, or if a range was not 
specified, a return is made to c(SR4) + 1, The 'not in range' exit 
is to c(SR4). 



ERRORS 



'INVALID DEVICE TYPE FOR THIS COMAAAND' 

A device label other than DC, DP, FT, or LT was specified. 

'REEL NUMBER SPECIFICATION NOT VALID FOR THIS DEVICE' 
A reel number was specified with the DC option. 

'IMPROPER TERAAINATION OF THE COMAAAND' 
Self-explanatory. Processing continues. 

'MODE SPECIFICATION NOT VALID FOR THIS DEVICE' 

An option was specified other than A, EA, 7T, or 9T, Also issued 
if 7T or 9T is specified for RAD or disk pack. 



EH? 



A syntax error has occurred within the command. 



*UTS only 
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DESCRIPTION 

The LIST routine is assembled as part of the module PCLLIST. LIST begins by calling 
CLRARG to zero ARGTBL. The attribute flags, ATTRB and EATTRB, and the file 
count in SR2 are zeroed. Since the device label DC is optional, the device code, 
DEVICE, is initialized to 3 to indicate DC. If no arguments are present in the LIST 
command, a transfer is made to simply list the names of files in the user's directory. 
If options are present, these must be either A, EA, 71, or 9T, and if the device is 
DC or DP only A or EA is allowed. If the option A is present, the attribute flag is 
set to -1 to indicate that attributes for all files in the directory are to be listed. 

DEVTRAN is called to translate the device label unless it is obvious from the syntax 
that DC is implied. If DEVTRAN cannot identify the field as a device label, it is 
assumed that the command has the form: 

'LIST fid [, fid...]'. 

In this case, the routine functions as if a '/' terminator followed the device specification 
and each field thereafter is treated as a file identifier. FILTRAN is called to translate 
the file specification, arid the attribute flag is set to 1 to indicate that attributes of specified 
files are to be listed. 

The M;EI DCB is built by the BLDCB routine. Rl is set to convey to BLDCB if an open 
next is to be done (ATTRB < 0), and if the FPARAM option is wanted (ATTRB ^ 0). 
BLDCB opens the first, or only, file. Rl is also set to indicate if the Testfile CAL is to 
be used (for LIST DC or REVIEW). If no attributes are wanted, the LIST routine continues 
by copying the file name from the M;EI DCB to the buffer PRTBUF and listing the name 
through the M:LO DCB. CLOSEI is called to close the file. The file count is incremented 
and an Open CAL is issued to open the next file. LIST continues to loop by listing the file 
name, closing the file, incrementing the file count, and opening the next file until an 
abnormal code 2 is returned indicating end of the file directory. A summary message is then 
printed stating the number of files listed and exit is mode to the caller. 

If the attribute flag is nonzero, this means that attributes of the file are wanted. An attribute 
heading is printed only once for the command. The file name is extracted from the M:EI DCB. 
The organization code is obtained from the M;El DCB. The number of granules, read accounts, 
write accounts, modification date, and synonym are obtained from the VLP list. The number 
of records in the file is determined by issuing one or more Precord CALs with a record count of 
32767 in order to force an abnormal return. All of these attributes except synonyms and 
accounts are entered in buffer PRTBUF and printed through the M:LO DCB. If a synonym or 
read or write accounts (other than defaults) were present, these are listed on separate lines. 
If the EA option was specified, the creation date, access date, backup date, and expiration 
date are listed if they are present in the VLP list. The file is then closed by calling CLOSEI 
and the file count is incremented. If single fids were specified, and another field is present, 
FILTRAN will be called to translate the file identifier. BLDCB will be entered again and the 
process above repeated until end of command. If on entire directory is specified (option A), 
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an 



an Open CAL is issued fo open fhe nexf file and the processing above is repeated until «.. 
abnormal code 2, signaling end of directory, is returned from the Open CAL. A summary 
message is then printed stating the number of files listed and exit is mode to the caller. 

If, when opening a file for which attributes are to be listed, an abnormal code X'14' is 
returned, the message 

'RESTRICTED ACCESS' 
or 

'FILE BUSY' 

is appended to the file name and no attributes are printed. After closing each file, BREAK 
is tested to determine if break action has occurred. If so, BREAK is zeroed, a summary mes- 
sage is printed stating the number of files listed, and an exit is made. 

The LIST routine is also entered from the REVIEW routine to perform the REVIEW command. 
A flag, DELETER, is set to indicate on-line REVIEW. The batch REVIEW command func- 
tions identically to LIST. The file name and attributes are obtained by issuing a Testfilc 
CAL with NXTF set. Subroutine TESTFN is called to test if the file is in range. If not, 
the file is skipped and a Testfile issued for the next file. If the file is in range, the file 
name is printed and, if an abnormal X'14' did not occur, a Read CAL is issued for the 
user's response. If a 'D' is typed, the file is opened and closed with the release option. 
If any other response is received, the file is not deleted. If an abnormal X'14' occurs, 
an appropriate message is printed and solicitation of the user's response is bypassed. 
Break action terminates the command as fbr LIST. 
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ID 

DELETE - DELETE Command Processor 

PURPOSE 

To scon the DELETE command for correct syntax and to release the specified RAD files, 

USAGE 

Calling sequence: 

BAL, SR4 DELETE 
Input and output registers: 

D2 (reg. 13) - maximum error severity 



INPUT 



TERM 
M:EI 



current termination character set by GETARG routine, 
element input DCB. 



OUTPUT 



DEVICE 
BREAK 



set to 3 to indicate RAD file. 

if nonzero due to break action, set to and an exit is made. 



INTERACTION 

Modules used: 

UTILITY 

FILTRAN 

ERROR 

BLDCB 



zero table ARGTBL (CLRARG), or print summary message 

(PRTNOF). 

process file specification. 

report error condition. 

build M:EI DCB and open file. 



Monitor services used (handwritten CALs and FPTs): 

M:CLOSE - reiease the file. 

Adjust DCB CAL - remove password from M:EI DCB (UTS only). 
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ERRORS 



IMPROPER TERMINATION OF THE COMAAAND' 
Sel f-explanafory. 



DESCRIPTION 

The DELETE routine is assembled as parf of the module PCLLIST. DELETE begins by 
calling CLRARG to zero ARGTBL. FILTRAN is called to translate the file specifi- 
cation. A severity 3 error encountered by FILTRAN causes an immediate exit from 
DELETE. Any terminating character other than 'end of command' or comma causes 
an error message to be issued. The M:EI DCB is built for each file specified and the 
file is opened by the BLDCB routine. A Close CAL, with the release option specified, 
is issued to delete each file. The password is removed from the DCB after every delete 
(UTS only). 

The DELETE routine is repeated for each file specified on the command. Errors encounterec 
in opening files are reported by BLDCB. When a terminator other than a comma is en- 
countered, the message 

'..NNNN FILES DELETED' 

is printed. 

The BREAK flag is tested after deleting a file and, if on, it is zeroed and the summary 
message is printed. 

If an attempt is made to delete a random file which another user has open, the message 

'CAN NOT ACCESS FILE XXX' 
is printed. 
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ID 



DELETEAL - DELETEALL Command Processor 



PURPOSE 



To release all or a portion of the RAD files in the user's account. 



USAGE 



Calling sequence: 

BAL, SR4 DELETEAL 



INPUT 



TERM 
CMDBUF 

J:JIT 

*FPTPROMT 
*M:UC 
*FPTCONSL 

M:EI 

M:LO 

BREAK 

DELETEF 

FROMFILE 
TOFILE 

CMBX 



current termination character set by GETARG routine. 

command buffer used for testing if confirmation was 

received. 

used for on-line/batch mode testing. 

FPT for M:PC CAL to set '<' prompt. 

DCB used for reading on-line confirmation. 

FPT for Read CAL to read on-line confirmation. 

element input DCB 

DCB used for printing messages. 

break flag which is tested after each file is deleted. 

if nonzero, the section of code at ALL2 was entered 

while processing an on-line REVIEW command. 

if nonzero, a range specification was present. 

if negative, the end of a range specification has been 

encountered. 

index into command buffer 



OUTPUT 



DEVICE 
FPARAM 
COPYSK 
lOERR 



set to 3 to indicate RAD file. 

receiving buffer for file name copied from M:EI DCB. 

set to -1 if range specification present. 

set to if error occurs wben opening random file again. 



UTS only 
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INTERACTION 



Modules used: 



UTILITY 



BLDCB 
ERROR 
PCL 
PCLLIST 



zero fable ARGTBL (CLRARG) close random file or file 

not in range (CLOSEI), enter file name in buffer (UNPRINT), 

or print" summary message (PRTNOF). 

build M:EI DCS and open first file. 

report error condition, 

process range specification (REVIEW). 

test if file is in range (TESTFNC). 



Monitor services used (handwritten CALs and FPTs): 
M:WRITE 



MrSETDCB 

M:CLOSE 

M:OPEN 

M:READ 

M:PC 



solicit confirmation (UTS on-line), or write 'CAN NOT 

ACCESS FILE' through M:LO. 

set error and abnormal addresses M:EI DCB. 

release a file. 

open next file or open random file again. 

read confirmation (UTS on-line only). 

set prompt character to '. ' and reset to '<' (UTS only). 



ERRORS 



'IMPROPER TERMINATION OF THE COMMAND' 
Self-explanatory. Processing continues. 

'CAN NOT ACCESS FILE XXX' 

File cannot be opened due to password requirement. Also printed if random 
file cannot be deleted because it is open by another user. Processing continues. 



DESCRIPTION 

The DELETEAL routine Is assembled as part of the module PCLLIST. A confirmation message 
is solicited, if in on-line mode, and a test made to determine if a confirmation was received. 
If the user has not typed 'YES$', an immediate exit is made from DELETEAL. Otherwise, 
processing continues by calling CLRARG to zero table ARGTBL. 

i 

If the terminating character is other than 'end of command', it is assumed that a range 
specification is present and the REVIEW routine is called to process the range. The 
BLDCB routine is then called to build the FPT for AA:EI and to open the first file. If a 
range specification is present, TESTFNC is called to determine if the file is within range. 
If the file is not within range, CLOSEI is called to close and save the file. Otherwise, 
the file is released via a close CAL. If no more files are wanted for a range specification, 
on immediate exit is made. Otherwise, an Open CAL is issued to open the next file. The 
routine loops by testing for file in range, either closing with a save or a release option^ 
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incrementing a file count, and opening the next file until on abnormal code is returned. 
If the abnormal code is 2, signaling end of the file directory, subroutine PRTNOF is called 
to print a summary message and an exit is made. If the file cannot be accessed due to a 
password requirement, a message to this effect is issued and processing resumes by attempting 
to open the next file. If an abnormal code of 8 is returned, it is a synonym and the file is 
skipped and processing continues. Other codes cause an I/O error message to be reported 
and an exit made. After releasing each file, BREAK is tested to determine if the BREAK key 
has been depressed. If BREAK is nonzero, an immediate exit is made. 

If a random file in the user's account is currently open by another user, the file is not 
deleted and the message 

•CAN NOT ACCESS FILE XXX' 

is printed. 
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ID 



REW - REWIND or REMOVE Command Processor 



PURPOSE 



To scan the REWIND or REMOVE command for correct syntax. The specified tape is 
rewound and, if the command is REMOVE, a dismount message is transmitted to the 
operator's console. The REMOVE command may also be used to remove a disk pack 
(UTS only). 



USAGE 



Calling sequence: 

BAL, SR4 REW 
Input registers: 

Dl (reg. 12) - command action code 

Output registers: 

D2 (reg. 13) - maximum error severity 



INPUT 



TERM 
CMDBUF 
ARGBUFF 
M:EI 



current termination character set by GETARG routine, 
address of command buffer 
set to current argument by GETARG routine, 
element input DCS 



OUTPUT 



DEVICE 

DEVICE +1 
DEVICE +2 
# DELIM 

CMBX 
MODE +1 



set to 1 1 to indicate MT operational label. Set to 6 

to indicate free-form tape if 71 option is used. 

set to one to indicate only one reel number permitted, 

set to CMBX value of reel number. 

set to 6 to enable '"^' as a delimiter. Reset to zero 

before exiting. 

set to beginning of command buffer. 

set to 3 if 7T option is present. 
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INTERACTION 



NAodules used: 



DEVTRAN 

UTILITY 

GETARG 

TEXTARG 

PCL 

ERROR 

BLDCB 



translate device label. 

zero table (CLRARG) or close M:EI (CLOSEI). 

extract reel number or option from command. 

check reel number. 

rescan command (TRANSACT). 

report error condition. 

build M:EI DCB and open file. If REM command is 

for a disk pock, an open next is done (UTS only). 



Monitor services used (handwritten CALs and FPTs): 



M:REW 
M:CLOSE 



M:OPEN 



used to rewind tape if REWIND command was input. 

used with REM option specified to rewind and remove 

tape or to remove disk pack (UTS only) if REMOVE 

command was input. 

do open next if REM command is for disk pack (UTS 

only). 



ERRORS 



'ONE REEL NUMBER MUST BE SPECIFIED ON THIS COMMAND' 
The user has specified more than one reel number. 

•UNABLE TO DISMOUNT' 

A file cannot be opened on the disk pack specified on the REM command. 

'MORE THAN FOUR CHARACTERS IN A REEL NUMBER SPECIFICATION' 
Self-explanatory. Reported by TEXTARG routine. 



•EH?' 



A syntax error prevents execution of the command. 
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DESCRIPTION 

The REW routine is assembled as a part of the module PCLLIST. REW begins by enabling the 
'"^' as a delimiter and rescanning the command verb. This is necessary in case a blank does 
not terminate the command verb. TRANSACT (in module PCL) is called to scan the command 
verb. DEVICE is set to a device code of 1 1 to indicate MT operational label. If the terminator 
is a '"^', this indicates that a reel number follows, and DEVICE+2 is set to the current command 
buffer index. If the terminator is not a '*', the next argument must be LT^sn, FT^sn, DP^sn 
(allowed only in UTS on REM), (71), or end of command. If the 71 option is present, MODE+1 
is set to 3 to indicate 7-track tape and DEVICE is set to 6 to indicate free-form tape. If the 
LT device label is used, DEVICE is set to 1 1 to indicate MT. If the device label is not DP, BLDCB 
is called to build the M:EI DCB and open the device. If the device label is DP, BLDCB is 
called to try to open the first file on the disk pack by doing an open next. A loop containing 
an open next CAL is executed as many times as required to open a file. If a REW command was 
input, a Rewind CAL is issued, CLOSEI is called to close M:EI, and an exit made. If a REM 
command was input, a Close CAL with the REM option specified is issued, causing a dismount 
message to be transmitted to the operator's console (for tape only), and an exit made. The '^' 
delimiter is always disobled before exiting. 



36 



ID 



TABS - TABS Command Processor 



PURPOSE 



To record the values specified on a TABS command to be referenced whenever a TX 
(tab expansion) option is used on a COPY command. 



USAGE 



Calling sequence: 

BAL, SR4 TABS 
Input register: 

Dl (reg. 12) - command action code 
Output register: 

D2 (reg. 13) - maximum error severity 



INPUT 



TERM 



current termination character 



OUTPUT 



TABSET 



a five-word table containing, in the first four words, the 
specified values on the TABS command. The fifth word 
contains the address of TABSET or the address of the tab 
settings in M:UC (UTS only) if there is no PCL TABS com- 
mand. 



INTERACTION 

Modules used: 

GETARG 
INTARG 
ERROR 



get next tab value. 

convert value to binary and test if value is in range. 

report error condition. 
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ERRORS 
'EH?' 



Terminator of field is neither a comma nor end -of- command. 
The scan is terminated; however, all tab values scanned 
will be honored. 

'INVALID TAB SPECIFICATION' 

Tab value is nonnumeric or is not between and 255. 



DESCRIPTION 

The tab settings in table TABSET are initialized to 0. GETARG is called to get each 
value, INTARG is called to convert the value to binary and, if the value is legal, 
it is stored in the next available byte in table TABSET. Processing continues as long 
as comma terminators are present and no more than 16 values are present. The address 
of table TABSET is entered in the fifth word of the table. 

The TABS routine is assembled as part of module PCL. 
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ID 



WEOF - WEOF Command Processor 



PURPOSE 



To write an end-of-file on the current output device and to close the output file. 



USAGE 



Calling sequence: 

BAL, SR4 WEOF 



INPUT 



TERM 



current termination character set by GETARG routine. 



INTERACTION 



Modules used: 



ERROR 
UTILITY 



report error condition, 
close M:EO (CLOSEO). 



Monitor services used (handwritten CALs and FPTs): 

M:WEOF - write end-of-file on current output device. 



ERRORS 



'IMPROPER TERMINATION OF THE COMMAND' 
Self-explanatory. Processing continues. 



DESCRIPTION 

The WEOF routine is assembled as part of the module PCLLIST. WEOF begins by testing 
the termination character. Any terminating character other than "end-of-command" 
causes an error message to be reported; however, processing continues. If an output 
device is not defined, an exit is made. Otherwise, an end-of-file is written on the 
current output device, CLOSEO is called to close M:EO, and an exit is made. 
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ID 



SPE - SPE Command Processor 



PURPOSE 



To scan the SPE command for valid arguments and to position the specified labeled tape 
past the last file. 



USAGE 



Calling sequence: 








BAL, SR4 


SPE 




Output 


registers: 








D2 (reg. 


13) - maximum error 


severity 


INPUT 









TERM 

DEVICE 

DEVICE +1 

FILE 

M:EI 

ARGBUFF 



terminator of current argument 

device ID code st by DEVTRAN 

set by DEVTRAN to number of reel numbers specified. 

set by DEVTRAN to 6, if account is specified. 

element input DCB 

set by GETARG to current argument. 



OUTPUT 



MODE +1 



set to 3, if 71 option present. 



INTERACTION 



Modules used: 



UTILITY 

DEVTRAN 
ERROR 
BLDCB 
GETARG 



zero table ARGTBL (CLRARG) or close each file through 

M:EI (CLOSEI). 

translate device label to device code. 

report error condition. 

build M:EI DCB and open first file. 

get option, if present. 
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Monitor services used (handwritten CALs and FPTs): 
M:OPEN - open next file through M:EI. 



ERRORS 



•INVALID DEVICE TYPE FOR THIS COMMAND' 
A device label other than LT was specified. 

'ONE REEL NUMBER MUST BE SPECIFIED ON THIS COMMAND' 
The user has specified more than one reel number. 

'ACCOUNT SPECIFICATION NOT VALID ON "SPE" COMMAND' 
Sel f-expl anatory. 

'IMPROPER TERMINATION OF THE COMMAND' 
Self-explanatory. 



DESCRIPTION 

The SPE routine is assembled as part of the module PCLLIST. SPE begins by calling 
CLRARG to zero table ARGTBL. DEVTRAN is called to translate the device label to 
a device code, A device label other than LT results in an error message being reported 
and an exit made. A test is made to determine if DEVTRAN encountered more than one 
reel number; if so, an error message is reported and an exit made. If DEVTRAN en- 
countered an account specification, an error is reported and an exit made. If the 71 
option was used, MODE+1 is set to 3 to indicate 7-track tape. The BLDCB routine is 
next entered to build the M:EI DCB and to open the first file on the tape. The routine 
loops by closing the current file and opening the next file until on abnormal code of 2 
is returned, indicating end of all files, after which an exit is made. Any other error 
or abnormal code results in an ^/O error being reported and an exit made. 
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ID 



SPF - SPF Command Processor 



PURPOSE 



To scon the SPF command for valid arguments and to position the designated free-form 
tape according to the direction indicated and number of files specified. 



USAGE 



Calling sequence: 

BAL, SR4 SPF 
Output registers: 

D2 (reg. 13) - maximum error severity 



INPUT 



DEVICE 
DEVICE +1 
NCHAR 
ARGBUFF 



device ID code set by DEVTRAN 
set by DEVTRAN to number of reel numbers specified, 
set by GETARG to number of characters in argument, 
set by GETARG to current argument. 



OUTPUT 



WRTFPT 
MODE +1 



two-word buffer set to FPT used by PFIL CAL. 
set to 3 if 7T option is used. 



INTERACTION 
Modules used: 
UTILITY 

DEVTRAN 
ERROR 
BLDCB 
GETARG 



zero table ARGTBL (CLRARG), convert number of files 

to binary (BCD2BIN), or close input file (CLOSEI). 

translate device label to device code. 

report error condition. 

build M:EI DCB and open file. 

extract option, direction indicator, and number of files. 
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Monitor services used (handwritten CALs and FPTs): 

MrPFIL - position tape forward or backward one file. 



ERRORS 



'INVALID DEVICE TYPE FOR THIS COMMAND' 
A device label other than FT was specified. 

'ONE REEL NUMBER MUST BE SPECIFIED ON THIS COMMAND' 
The user has specified more than one reel number. 

'OVERFLOW ON NUMBER OF FILES ON SPF COMMAND' 
Overflow occurred during conversion to binary. 

'INVALID DIRECTION INDICATOR ON SPF COMAAAND' 
A character other than '+* or '-' has been used as a 
direction indicator. 

'IMPROPER TERMINATION OF THE COMMAND' 
Self-explanatory. Processing continues. 

'EH?' 

A syntax error prevents execution of the command. 



DESCRIPTION 

The SPF routine is assembled as part of the module PCLLIST. SPF begins by calling 
CLRARG to zero table ARGTBL. DEVTRAN is called to translate the device label 
to a device code. A device label other than FT results in an error message being 
reported and an exit made. A test is made to determine if DEVTRAN encountered 
more then one reel number; if so, an error message is reported and an exit made. 
If the 7T option was used, MODE +1 is set to 3 to indicate 7-track tape. The 
BLDCB routine is next entered to build the M:EI DCB and to open the file. The FPT 
for the PFIL is moved to WRTFPT in the data base. The direction indicator and num- 
ber of files are extracted by GETARG, The number of files are converted to binary 
by BCD2BIN and, if a direction indicator is present, it is tested for validity. If the 
direction indicator is '-', a bit is set in the FPT at WRTFPT to indicate backward 
direction. A PFIL CAL is issued to position the tape one file in the desired direction. 
Additional PFILs are issued until the tape has been moved the specified number of files. 
CLOSEI is then called to close M:EI and the routine exits to the caller. 
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ID 

REVIEW - REVIEW Command Processor and range specificafion scan routine 

PURPOSE 

To process the REVIEW command by scanning an optional range specification and calling 
the LI$T routine to execute the command. Also entered for scanning the range specifica- 
tion on a COPYALL or DELETEALL command. 



USAGE 



Calling sequence: 

BAL, SR4 REVIEW 

INPUT 



ARGBUFF 
CMBX 
COPYPHY 
COPYSK 



NCHAR 
TERM 



buffer containing current argument 

index into command buffer CMDBUF 

flag indicating if PHY option was used on a COPYALL. 

flag indicating type of command: 

= REVIEW 

< = DELETEALL 

> = COPYALL 
number of characters in current argument 
terminator of current argument 



OUTPUT 



FROMCMBX - set to CMBX value of end of the 'from' field. 
FROMFILE - eight-word buffer containing the 'from' field. 

If field is null, first word of buffer is set to 1. 
TOFILE - eight-word buffer containing the 'to* field. 

If field is null, first word of buffer is set to 1. 



INTERACTION 



Modules used: 



BLDCB 
ERROR 
PCLLIST 



get 'from' or 'to' field (ADDFILEN). 

report error condition. 

execute REVIEW command (LIST). 
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No monitor services used. 



ERRORS 



'EH?' 

Syntax error prevents execution of a DELETEALL command. 

'IMPROPER TERMINATION OF THE COMMAND' 
Self-explanatory 

'INVALID FILE RANGE SPECIFICATION' 

The 'to' field is alphanumerically less than the 'from' field. 
Command is not executed. 



DESCRIPTION 

REVIEW is assembled as part of the module PCL. Entry is made for the REVIEW command or for 
a range specification on a COPYALL or DELETEALL command. FROMFILE and TOFILE ore eight- 
word buffers which are set to the 'from' and 'to' fields, in TEXTC format, respectively. The 
first word of each buffer is initialized to a 1 in cose either field (or possibly both fields for a 
REVIEW) is null. ADDFILEN (in module BLDCB) is called to extract each field, which may be 
an alphanumeric string, a character string within quotes, or a hexadecimal string. The 'to' 
field must be alphanumerically equal to or greater than the 'from' field unless the PHY option 
is present. If the command is REVIEW, the LIST routine (in module PCLLIST) is called to execute 
the command. For other commands, control simply returns to the caller after a syntax analysis 
and extraction of the fields of the range specification. 
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ID 



COPYTRAN - COPY Command Translator 



PURPOSE 



To translate all arguments specified in either the input or the output field of a COPY command. 
The results of the translation are entered in the argument table, ARGTBL. COPYTRAN is also 
called to translate the input field of a COPYSTD command. 



USAGE 



Calling sequence: 



BAL, SR4 COPYTRAN 



Input register: 



Output register: 



INPUT 



Rl - argument level (1 = device, 2 = file). 



Rl - next argument level (0 = none, 1 = device, 2 = file), 



ARGBUFF 

ARGBUF4 

NCHAR 

TERM 

FILE 

COPYSTDF 

J:JIT 

M:UC 

SFARG 

RDTBL 

SFDEV 

WRTBL 



argument buffer 

byte equivalent of ARGBUFF 

number of characters in current argument 

terminator of current argument 

file ID indicator 

flag which is nonzero if command is COPYSTD. 

used for on-line/batch mode testing. 

terminal I/O DCB. 

table containing standard file arguments. 

table containing read account information, 

a two-word table containing input and output device 

codes for COPYSTD. 

table containing write account information. 
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OUTPUT 



ARGTBL 
CMBX 

CODE 

DEVICE 

DVLARG 

CARDSEQ 

TABSET+5 

MODE 

SAVCMBX 
SELECT 

SEQUENCE 



location of argument table 

command buffer index. Reset to value on entry if 

device code not present (default = DC). 

word of ARGTBL which is set to data format code 

ID if a code was specified. 

device code ID. Set to 3 (for DC) if no device 

code present. 

thirty-six word table for saving device level arguments 

in ARGTBL. 

two-word cord sequence value which is initialized to 

character zeroes. 

set to M:UC+15 if TX option is used on-line without 

a PCL TABS command. 

a four-word table in ARGTBL in which IDs for mode 

specification are entered. 

set to value of CMBX on entry. 

a 21 -word table in ARGTBL of record selection values, 

headed by a selection count. 

a five-word table in ARGTBL in which sequencing 

information is placed if a record sequence specification 

is used in a command. 



INTERACTION 

Modules used: 

UTILITY 

COMBINE 

DEVTRAN 

ERROR 

FILTRAN 

FIXARG 

GETARG 

INTARG 

TEXTARG 



convert selection integer to binary (BCD2BIN), zero 

argument table (CLRARG). 

edit parameter combinations. 

translate device label. 

report error condition. 

translate file specification. 

table search for sp'ecified options. 

get next argument from the command buffer. 

convert and edit N or K value on CS or LN option. 

edit read or write account specification. 



No monitor services required. 
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SUBROUTINES 



RWACCT 



This subrouflne is entered whenever an RD or WR option is 
encountered on a COPY or COPYALL command. The first 
byte of MODE+2 in ARGTBL is set to a 22 to indicate to the 
COMBINE subroutine that accounts are present. On entry, 
register 2 contains a 1 if the option is RD and a 2 if the option 
is WR. Table RDTBL or WRTBL is set to the number of accounts 
specified on the option and the CMBX value of the first account. 
If more than eight accounts are specified, only the first eight 
are used. 



ERRORS 



'EH?' 

Input or output field of COPY is not terminated by a blank or end-of- 
command. Also given if syntax is invalid on an account specification. 
Processing is terminated. 

'NULL ARGUMENT (TWO DELIMITERS IN A ROW)' 

In scanning the options on a COPY command, two delimiters were 
used as consecutive characters. Processing continues, 

'ILLEGAL FILE NAME SPECIFICATION' 

A file name is not present with a DC device code. Processing is 
terminated. 

'TX OPTION USED WITHOUT TABS COMMAND' 

If in batch mode, a PCL TABS command was not previously used. If 
on-line, neither a PCL nor a TEL TABS command was used. Processing 
continues with single blanks replacing tab characters on output. 

'INVALID OPTION FOR COPYSTD' 

The only option allowed for COPYSTD is '7T', 

'MORE THAN TEN RS FIELDS FOR AN INPUT DEVICE' 

The number of record select pairs is limited to ten. Editing continues, 

'OVERFLOW ON A RS VALUE' 

The conversion of a record selection value caused overflow. Editing 
continues, 

'CS ID-FIELD GREATER THAN FOUR CHARACTERS' 

The sequence identification is limited to four characters. Field is 
truncated to four characters and processing continues. 
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•ERROR ON N OR K VALUE OF CS OPTION' 

Either the N or K value of a CS or LN option is out of range. 
Processing continues. 

•IMPROPER TERMINATION WITHIN RS, LN, ORGS OPTION' 
Self-explanatory. Processing is terminated. 

')) MUST TERMINATE RS, LN, ORGS OPTION' 
Self-explanatory. Processing is terminated, 

'SPEGIAL ARGUMENTS MUST HAVE ) AS TERMINATION GHARAGTER' 
Special arguments must be terminated by comma or right parenthesis. 
Processing is terminated. 

•MORE THAN EIGHT READ OR WRITE AGGOUNTS' 

Self-explanatory. Processing continues with excessive accounts 
ignored. 

DESCRIPTION 

GOPYTRAN begins its translation of arguments by testing the argument level input in Rl. If 
entered at the device level, GLRARG is called to zero the argument table and DEVTRAN is 
called to translate the device. If a file named in a standard file is being copied, and a device 
code is not present, the device arguments in ARGTBL are set from those in SFARG. If no special 
arguments or file follows, a test is made for proper field termination, COMBINE is called to edit 
parameter combinations, and control is returned to the caller. If special arguments are present 
at the device level, table searches to identify each argument are performed by calling FIXARG 
for the mode table, the data code table, and the sequence table until a match is found. If a 
match is not found, the argument is then tested if it is RD or WR. If so, subroutine RWAGGT is 
entered to scan the accounts. If the argument cannot be identified, it is assumed to be a record 
selection. As many as ten record selection pairs are allowed, and the count of pairs is maintained 
in SELECT in the user's data area, while the selection values are entered in a 20-word table 
beginning at SELECT+1. Codes and sequencing information are added, as appropriate, to table 
ARGTBL, 

If a file follows a device specification, the device level arguments are saved in table DVLARG, 
the argument level is set to a file, and FILTRAN is called to translate the file specification. 
Special arguments at the file level are processed in the same manner as at the device level, and 
will cause information to be added to table ARGTBL, 
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If the argument level is set to indicate a file on entry to COPYTRAN, the device arguments 
in table DVLARG are restored to table ARGTBL, and processing continues by calling FILTRAN, 
as described above. 

Exit is made from COPYTRAN if the terminator is a semi-colon (indicating new device follows), 
a comma after a file specification (indicating another file follows), a blank, an end-of-command, 
or an invalid terminator. R1 is set to indicate the argumeri- level (device or file) before exiting. 
If the device code is DC and a file identifier is not present, this error is reported before exiting. 
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ID 



BLDCB - Build Input or Output DCB 



PURPOSE 

BLDCB constructs an Open FPT for either the M:EI or the M:EO DCB, based upon input flags, 
and issues on Open CAL for the DCB. 



USAGE 



Calling sequence: 



BAL, SR4 BLDCB 



Input registers: 



Rl - 



b 

- b 

- b 

- b 

- b 



t 12 - Testfile open, if set (UTS only), 

t 28 - INOUT mode, if set. 

t 29 - NXTF option, if set. 

t30 - FPARAM option, if set. 

t 31 - I/O switch (0 = input, 1 = output) 



Output registers: 



SR3 - set to error or abnormal codes if failure on Open for DCB. 
D2 (reg. 13) - set to 3 to indicate maximum severity if 'TO' 
was used with an existing file (on-line only). 



INPUT 



DEVICE 

lOBUF 

J:JIT 

M:UC 

NCHAR 

TOVER 

FPARAM 

TLBLSIZE 

COPYSTDF 

SEQUENCE 

TOARG 

SFTEMP 



device ID code 

beginning address of l/O buffer 

used for on-line/batch testing. 

terminal l/O DCB 

number of characters in current argument 

TO-OVER flag 

address of VLP list 

size of tape label buffer 

flag which is nonzero if command is COPYSTD. 

tested for LN or NLN options. 

contains input arguments which are tested when 

entered in output mode, 

tested to determine if temporary standard file is to be opened. 



51 



FROMFILE 

PRNTBUF 
RDTBL 

COPYPHY 
FROMCMBX 

WRTBL 



buffer containing 'from' field of range specification 

in TEXTC format. 

buffer containing record of a standard file. 

two-word table containing the number of read accounts 

specified and the CMBX value of the first account. 

flog set if PHY option was used on a COPYALL. 

contains CMBX value of end of the 'from' field of 

a range specification. 

two-word table containing the number of write accounts 

specified and the CMBX value of the first account. 



OUTPUT 



ARGBUFF 

ARGTBL 

CMBX 

CODE 

DCBADD 

M:EI 

M:EO 

MODE 

TLABEL 

OPNFPT 
FILE 

LINENO 
SFACCT 

'^DELIM 
SCRATCH 



set to serial number of scratch tape before calling 

STORVLP. 

argument table into which default values are entered 

if needed. 

command buffer index which is set from saved values in 

ARGTBL when scanning reel numbers or file parameters. 

if 0, set to code for EBCDIC or, if PR or PP device, set 

to code for ASCII. 

set to current DCB address (M:EI, F:STD, or M:EO). 

element input DCB 

element output DCB 

set to default mode codes, if codes were not specified. 

tape label buffer, the first byte of which contains the 

length of the buffer. 

Open FPT in data base 

set to 1 to indicate file name only when entered in 

output mode for a file in a standard file. 

save word for argument pointer when scanning a file ID, 

set to CMBX value of account specification on a 

COPYSTD command. 

set to index of desired delimiter table in GETARG. 

set to the serial number of a scratch tape. 
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INTERACTION 



Modules used: 



UTILITY - used to issue various M:DEVICE CALs (CALLl). If input and 

output file names are identical, used to close the M:EI DCB 
(CLOSEI). Used to enter file name in print buffer (UNPRINT). 
Used also to close the M:EO DCB after opening to test if file 
exists (CLOSEO). 

GETARG - used to extract reel numbers or file arguments from command. 

STORVLP - used to store reel numbers or file arguments in VLP, 

ERROR - report error condition. 

Monitor services used (handwritten CALs and FPTs): 

M:WRITE - write message through M:UC DCB. 

M:OPEN - open M:EI or M:EO DCB. 



ERRORS 

'ON FILE "xxx" ILLEGAL' 

'ON' or 'TO' was used with an existing file (on-line mode). 

I/O errors are reported by calling the ERROR routine and ore printed later by the PRTERR 
routine. 



DESCRIPTION 

BLDCB is called by any routine that must construct a DCB for execution of a PCL command. Table 
DEFAULT is searched to determine if default values apply to the current device. If so, each 
default value is entered in the appropriate entry of table ARGTBL, if this entry is zero. The 
Open FPT is initialized by moving a skeletal form into the user's data area. If reel numbers 
are present, these are added to the Open FPT as variable length parameters by routine STORVLP, 
If a file specification or account number is present, these arguments are also added to the Open 
FPT by routine STORVLP. The appropriate operational label assignment and, if required, the 
file or label existence flag are entered in the Open FPT. 

If BLDCB is entered in input mode, the address of M:EI is normally entered in the Open FPT and 
Testfile (UTS only), FPARAA/\, NXTF, and INOUT options are added to the FPT if requested on 
entry. However, if the COPYSTDF flag is set negative, fl^is indicates that F:STD is to be 
opened for input. 
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If BLDCB is entered In output mode, the address of M;EO Is entered in the Open FPT, CALL! 
is called to issue an M: DEVICE CAL to turn off VFC. The max key length and the organization 
code are copied to the Open FPT from the M:EI DCB. The access code in the FPT is set to 
direct. If the FPARAMbit Is set on entry, the variable length parameters are copied from 
FPARAM to the Open FPT, If the user Is In on-line mode, a test is made to determine if he is 
trying to copy 'TO' an existing file. If so, an error message is sent to his terminal and exit Is 
made to the caller. The function code In the FPT is set for 'OUT', unless synonyms are being 
added as part of a COPYALL, In which case the function Is set for 'INOUT'. 

If the next file option is set and a 'from' field was present on a range specification, the 'from' 
field is entered Into the Open FPT by calling STORVLP. An Open is performed without the 
NXTF flag set. In this case, an error return on opening the file will be treated as an error only 
if copying a synonym or if the PHY option was used. For other conditions, control goes to 
INXTF2 to issue an Open Next CAL. 

If BLDCB is entered in output mode and the Input file is random, a test is made to determine If 
output is to labeled tape. If so, the output organization is set to consecutive and the RLIM 
value from the M:EI DCB and a code word are entered into the tope label buffer. 

If BLDCB is entered in output mode and the output destination is RAD or disk pack with input 
from labeled tape, the tape label is checked for the random file code word. If the codes match, 
the RSTORE entry in the output Open FPT is set from the RLIM value saved In the tape label and 
the output organization is set to random. 

The DCB is next opened, and in case of on error or abnormal return, the codes in SR3 are saved 
and control is returned to the caller. CALLl is called to issue an M: DEVICE CAL to set the 
proper bits for BCD/BIN, PK/UPK, or H conversion in the DCB. If SSP, DSP, or VFC has been 
specified, CALLl is called again to add the proper code to the DCB via an M:DEVICE CAL. 
Control is then returned to the caller. 
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RDWRT - Read M:El/Write M:EO 



PURPOSE 



This routine issues the Read and Write CALs that perform a file copy. All of the multiple 
reel logic is contained in this routine. 



USAGE 

Calling sequence: 

BAL, SR4 RDWRT 

INPUT 



DEVICE 

J:JIT 

M;EI 

M:EO 

M:LO 

M:UC 

TOARG 

lOERR 

MODE 

CODE 

TABSET 

COPYSK 

COPYSTDF 



input device code 

used for testing if on-line or batch mode. 

element input DCB 

element output DCB 

DCB for writing batch messages 

DCB for writing on-line messages 

table of output arguments 

contains returned SR3 after an l/O error occurs, 

input mode table which is tested for DEOD option 

word in input argument table containing data format code, 

table of tab values 

tested to determine if COPYALL command. 

tested to determine if COPYSTD command. 



OUTPUT 



BUFSIZE 

lOBUF 

RDFPT 

RECNUM 

SELECT 

TOSWT 



WRTFPT 
ATTRB 



byte size of dynamic I/O buffer 

origin of l/O buffer 

FPT for Read CAL 

current record number 

count of record select options 

switch which is zeroed before exiting if an error or 

abnormal return (other than end-of-reel) occurs on 

output. 

FPT for Write CAL 

temporary save word used by subroutine COMPRESS 
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CARDSEQ 

CIBLEFT 

BREAK 
GRANCNT 
CIBTOTAL 
CIBUSED 

CISEQ 

CIWORD 
COBLEFT 

COBUSED 

COWORD 

KEY 

LINENO 

PRTBUF 

RECSIZE 

RSSAVE 
SEQNUM 



a doubleword area which is set to the BCD sequence 

value if the CS option was used. 

set to number of bits left In current compressed word when 

converting compressed to symbolic. 

break flag which, if set, is reset to zero if command is COPY. 

flag set if COPY command is aborted. 

set to number of bits in input compressed record. 

set to number of bits used in current compressed word 

when converting compressed to symbolic. 

current sequence value used for testing sequencing on 

compressed input 

pointer to current compressed word in input buffer 

set to number of bits left in current compressed word 

when converting symbolic to compressed, 

set to number of bits used in output compressed word 

when converting from symbolic to compressed. 

pointer to current compressed word in output buffer 

set to next write key when LN option has been used. 

a three-word area immediately preceding the output 

buffer which is set to the Edit line number if the K option 

was used. 

buffer used for output record whenever C option is used 

on either ihput or output. 

actual record size of symbolic input or output record 

when converting to or from compressed. 

save word for number of record selections. 

a two-word area immediately preceding LINENO which is 

set to the record sequence number if the K option was used. 



INTERACTION 



Modules used: 



UTILITY 

ERROR 
HEXDUMP 



convert sequence number of EDIT key to BCD (BIN2BCD) 

or get additional buffer pages (GET PAGE). 

report error. 

convert input record into hexadecimal dump format 

and write it. 



Monitor services used (handwritten CALs and FPTs); 



M:SETDCB 
M:READ 

MrWRITE 



set error and abnormal addresses in M:EI and M:EO DCBs. 
read an input record, or read reply after break during 
COPY command. 

write an output record, write '—EOD— ENCOUNTERED', 
or write 'ENTER X TO ABORT COMMAND'. 
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M:CVOL 

MrWEOF 
MiPRECORD - 
M:PFIL 

M:DEVICE (SIZE) 
M;CLOSE 
M:PC 



advance to next input tape reel or close current 

output volume. 

write end-of-file mark, 

backspace one record. 

position file to BOF. 

set binary mode in M:EO DCB. 

release partial RAD file if error occurs. 

change prompt character. 



SUBROUTINES 



NCCHK 



READCOMP 



DECOMPR 



COMPRESS 



WRITECO 



SETEOD 



Test for NC option. If the NC option was not used, a return 
is made to (SR4) +1. Otherwise, the last byte of the record 
is examined and if it is a carriage return or a line feed, a 
return is made to (SR4). If the test for carriage return fails, 
a return is made to (SR4) +1, 

Read compressed input. The compressed input record is read 
and checked for validity. Control words are initialized for 
converting compressed to symbolic. 

Construct a symbolic record from compressed input. The compressed 
input Is converted to symbolic and, if necessary, an additional 
compressed record is read to produce a symbolic output record. 

Produce a compressed output record from symbolic input. The 
input symbolic record is converted to compressed. When the 
output buffer is full, the record is written and the remainder of 
the input record is compressed and entered into the buffer as the 
first part of the next record. 

Write a compressed record. The correct byte count is entered 
into the write FPT. The sequence field of the records is in- 
cremented by 1. A checksum is computed and entered into the 
control word. If sequence or line number options were specified, 
these are processed next. The record is then written. 

Set record size to true byte count. The record size of a symbolic 
record is reduced by the number of trailing blanks. The true size 
is saved in RECSIZE and is also returned in R3. 



LINENUM 



Construct a write key, A write key is constructed from the current 
line number. This number is derived from the values specified with 
an LN option. The output argument table is always updated to con- 
tain the next key value. The current value is stored in KEY. 
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TABEXP 



Perform tab expansion. If the TX option was used, this routine 
Is entered for each output record to expand any embedded tab 
characters. 

One of the following methods of expansion is used: 

1. If a PCL TABS command was input, the values on this 
command are used. 

2. If a PCL TABS command was not input, but tab values 
are present in the M:UC DCB, these values ore used 
in the expansion. This applies to on-line only. 

3. If no tab values have been specified, single blanks 
are substituted for tab values, 

4. If insufficient tab values were specified, single blanks 
are substituted for the remaining tab characters in the 
record. 



SEQOUT 



SEQOUTB 



ULBLCHK 



BRCHK 



Construct sequence information. This routine constructs a doubleword 
BCD sequence value from the ID and current sequence number con- 
tained in the output argument table. If overflow occurs, the se- 
quencing reverts to 0. The information is stored in CARDSEQ. 

Sequence binary output. The sequence information in CARDSEQ 
is converted from an eight-byte BCD value to a twelve-byte binary 
equivalent. The converted value is entered into the last three words 
of the output buffer. 

Test for trailer label. This routine is entered for a X'lC abnormal 
(EOV) or an end-of-file. If the input and output devices are both 
labeled tape, a test is made to determine if a trailer label is present. 
If so, a CVOL or CLOSE CAL is issued for M:EO to transfer the 
trailer label to the output tape. 

Test Break flag. If the Break flag is set and the command is a COPY, 
the message 'ENTER X TO ABORT COMAAAND' is issued. If the 
user's reply is 'X', the copy is aborted. Any other reply causes the 
copy to be continued. 
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ERRORS 

'RECORD SIZE EXCEEDS AVAILABLE MEMORY' 

Required buffer space for reading input records is not 
available. File copy is terminated. 

'INPUT RECORD SIZE LARGER THAN 32767 BYTES' 

The number of bytes in an input record from unlabeled tape 
or paper tape exceeds 2'^-l. File copy is terminated. 

'RECORD SELECTION SPECIFICATION NOT VALID FOR THIS DEVICE* 
Record selections are specified out of sequence for card reader 
input. File copy is terminated. 

•RS SPECIFICATION BEYOND END OF FILE' 

The range of records selected is not within the file. 

•ERROR IN COMPRESSED INPUT' 

Either the record length, ID, checksum, or sequencing of 
compressed input is in error. The copy is terminated. 

'C OPTION IS INVALID ON BOTH INPUT AND OUTPUT' 
Self-explanatory. The copy is not performed, 

'RECORD SELECTION INVALID WITH C OPTION' 

The C option is not allowed on either input or output if record 
selection is specified. The copy is not performed. 

'OVERFLOW ON EDIT LINE NUMBER' 

The key value computed, when copying with LN option, 
exceeds 9999. File copy is terminated. 

The occurrence of on I/O error will cause SR3 to be saved and the error to be reported later 
by the PRTERR routine. 



DESCRIPTION 

RDWRT is called for each file that is copied. The Read FPT is moved to RDFPT in the user's data 
base and the current buffer size is entered in the FPT. The Write FPT is moved to WRTFPT. The 
buffer address is entered in the Read and Write FPTs. 

If a random file is being copied, and the buffer size is less than a page, GETPAGE is called to 
get an additional page. The buffer size is set to one page and the key address is removed from 
the Write FPT. If the LN option was used, the address of KEY Is entered in the Write FPT. 
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If fhe C option was used on either input or output, control goes to RDWRTCO to perform the I/O 
and the conversion. Otherwise, SETDCB CALs are issued to set error and abnormal addresses in 
M:EI and M:EO 

The record selection table index is initialized to point to the first selection pair. The record 
number count is zeroed, the EOF indicator zeroed, and a Read CAL issued. After a norma! 
return from a Read CAL, the record count is incremented by one and a test made to determine 
if record selection is to be done. If so, the current record number is compared against the values 
to which the selection table index points. If less than the X value, the next record is read from 
the file. If greater than the Y value, the count of record select options is decremented by one 
and the next selection pair in the table is used for comparison. If the current record is within 
range, the routine continues by preparing to output the record. 

If the current record number is greater than the X value of the next selection pair, this indicates 
that selections are out of sequence and a PFIL CAL is issued to position to the beginning of the 
file. In this case, the record count is zeored and the file is read again. 

If the current record is to be output, its size is obtained and placed in the Write PPT. If the NC 
option was specified, the last byte of a non-null record is tested to see if it is a carriage return. 
If so, the record size in the Write FPT is decreased by one to strip the carriage return from the 
record. 

If the TX option was used, TABEXP is called to expand tab characters. If a sequence option was 
specified, this option is processed next. 

If the output is to be in hexadecimal dump format, the subroutine HEXDUMP is called to convert 
and write the output record. Control then goes to read the next record. 

If the K option was used, and the input file has a three-byte key and output is to the terminal or 
line printer, the key is converted to an Edit line number and printed as the first part of each 
record. 

The Write CAL is then issued. At this point, subroutine BRCHK is called to test the BREAK flag. 
If no abnormal or error conditions have occurred, control goes back to the Read CAL and this 
loop continues until an error or abnormal condition occurs, 

READ ABNORMAL: 

A check is made for EOD (5) or EOF (6). If so, the END OF FILE indicator (R6) is 
incremented by one and is checked for a value of 2, 

If a double END OF FILE has occurred, subroutine ULBLCHK is called to test if a 
trailer label is present. Control is returned to the calling subroutine (i.e., copying 
is terminated with a double END OF FILE). When the END OF FILE indicator is one, 
a WRITE END OF FILE CAL is issued to the output (M:EO) DCB. Control goes back 
to the Read CAL if an abnormal code 5 (EOD) occurred. However, if an abnormal 
code 6 (EOF) occurred, an exit is made from RDWRT. 
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A check is made for lost data (7). If so, the GETPAGE subroutine is called to obtain 
additional buffer pages. If no pages are available, subroutine ERROR is called to 
report the error and control returns to the calling subroutine. When the page is 
available, a check is made to insure that the buffer size to read a record from a 
DEVICE is not greater than 15 bits. The new record size is entered in the READ FPT 
and BUFSIZE. The input file is backspaced one record to re-read the same record, 

A check is made for END OF REEL (X'lC). If so, subroutine ULBLCHK is called to 
test if a trailer label is present, A CLOSE VOLUME CAL is issued to switch to the 
next reel. 

If none of the above READ ABNORMAL conditions have occurred, an I/O error is 
reported to subroutine ERROR and control returns to the calling subroutine, 

READ ERROR: 

A check is made for last reel (X'56'), If so, control returns to write the last record* 
If a X'42' is returned, and the input file is random, this signals the end of input and 
an exit is made from RDWRT, Otherwise, an I/O error is reported to subroutine 
ERROR and control returns to the calling subroutine, 

WRITE ABNORMAL: 

A check is made for END OF REEL (X'lC). If so, two END OF FILES are written 
to clean up a free form tape and a CLOSE VOLUME CAL is issued to switch to the 
next reel. Otherwise, control goes to WRITE ERROR. 

WRITE ERROR: 

The output DCB M:EO is closed and TOSWT is reset to indicate no defined output 
specification. The Write Error is reported to subroutine ERROR and control is re- 
turned to the calling subroutine. 
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HEXDUMP - Hexadecimal Dump Routine 



PURPOSE 



Converts an input data record into a hexadecimal dump format and writes it. This routine 
is called from the RDWRT routine if the X format conversion has been specified. 



USAGE 



Calling sequence: 

BAL, SR4 HEXDUMP 



INPUT 



lOBUF 

M:EI 

M:EO 

RECNUM 

WRTFPT 

CODE 

PRTBUF 

TOARG 

CCTAB 



I/O buffer origin if input is not compressed. 

element input DCB 

element output DCB 

current record number 

FPT for Write CAL 

input data code 

input buffer if input is compressed. 

output device code 

table used for testing if character is unprintable. 



OUTPUT 



PRNTBUF 

BREAK 

SFDEF 



line buffer 

set to zero and an immediate exit made if Break key was depressed, 

current word pointer in input buffer 



INTERACTION 
AAodules used: 
UTILITY 



convert binary to BCD (BIN2BCD), put file name or key 
in buffer (UNPRINT), or convert hexadecimal to BCD 
(HEX2BCD). 
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Monitor services used (handwritten CALs and FPTs): 

M:DEVICE - used to reset VFC or to position to top of page. 

M: WRITE - used to print all messages and converted lines through 

M:EO. 



DESCRIPTION 

The VFC bit in the output DCB (M:EO) is reset because the output of HEXDUMP does not contain 
a VFC byte at the start of each record. A Top-of-Page CAL is executed before the first record is 
printed if output is to the line printer. 

The record size must be rounded to word resolution to print any partial word at the end of the recorc 
If the input record is from a device type, there is no file name or key name to print so the record 
number is printed. When the input record is from a file and output is to the line printer, the 
file name is printed before the first record only. When the input file is keyed, the key name is 
printed, otherwise, the record number is printed. When the keyed record size is zero, a message 
is printed and control is returned to RDWRT. 

The number of words per line is set according to where the output is going. Output to the line 
printer is set at eight words per line; output to a terminal isset at four words per line. 

The first line is converted to EBCDIC by subroutine HEX2BCD word-by-word and placed in 
PRNTBUF byte-by-byte. After each word is converted, a check is made to determine if the 
end of the input buffer has been reached. If so, and if output is to the terminal, fhe line is 
printed. If output is to the printer, the input characters are moved to the output buffer with 
unprintable characters replaced by a period. Each subsequent line is then checked against the 
previous line to check for duplication of lines. Duplicate lines are not printed unless it is the 
last line of the record. When a duplicate line is found, the asterisk flag is set, and when a sub- 
sequent line is printed, an asterisk is printed along with the address to indicate that one or more 
lines have been skipped. 

Before the last line of a record is printed, a check is made to determine if the last word of the 
record is only a partial word. If so, only the high order byfes contained in the input record 
are printed. 

After the last line is printed, control is returned to the subroutine RDWRT. 

The BREAK flag is tested after each line is printed and, if set, it is zeroed and exit is made 
to subroutine RDWRT. 
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ERROR - Error Reporting Routine 



PURPOSE 



To report an error for subsequent printing by PRTERR. This is done by entering a '$' pointer 
into the error flog buffer and, if UTS, entering into a table the key needed to read the de- 
sired message from the system error message file (ERRMSG, :SYS). In BPM, the table entry 
is an index into an internal error message table. 



USAGE 



Calling sequence: 



BAL, SR4 ERROR 



Input registers; 
Rl - 

SR3 - 

Output registers: 
D2 - 



contains the error code from which the key is to be built. 
If zero, the error code is contained in SR3. 

I/O error code (as returned on an error or abnormal I/O 
operation) if Rl contains zero. 



maximum error severity encountered (1 = warning, 2 = 
terminate execution, 3 = terminate Edit and execution). 



INPUT 



CMBXDIFF 

CMBX 

J:JIT 

TERM 



offset from CMBX to get desired location for 
entering '$' in flag buffer, 
current byte index into CMDBUF 
tested for on-line/batch mode, 
current termination character. 



OUTPUT 



ERRFLAG 



table of ERRMSG file keys into which a key is entered 

for the error to be reported (UTS only). In BPM, the 

table entry is the error code itself. The first word of the 

table is incremented to reflect the number of table entries present. 
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lOERR - contents of SR3 returned by the File Management system, 

if Rl is zero on entry. 



ERRORS 

The following messages are contained in the ERRMSG. :SYS file (UTS only). The number of the 
message (contained in Rl on entry) is used to construct the key. In BPM, these messages 
constitute a table contained in module PRTERR. 

1. ARGUMENT GREATER THAN 31 CHARACTERS 

2. ILLEGAL DEVICE CODE 

3. MORE THAN FOUR CHARACTERS IN A REEL NUMBER SPECIFICATION 

4. ILLEGAL FILE NAME SPECIFICATION 

5. ILLEGAL ACCOUNT NUMBER SPECIFICATION 

6. ILLEGAL PASSWORD SPECIFICATION 

7. TOO MANY FIELDS IN A FILE IDENTIFICATION SPECIFICATION 

8. INVALID FILE RANGE SPECIFICATION 

9. MORE THAN TEN RS FIELDS FOR AN INPUT DEVICE 

10. OVERFLOW ON A RS VALUE 

1 1 . ERROR ON Y VALUE OF RS OPTION 

12. CS ID-FIELD GREATER THAN FOUR CHARACTERS 

13. ERROR ON N OR K VALUE OF CS OPTION 

14. IMPROPER TERMINATION WITHIN RS, LN, OR CS OPTION 

15. )) MUST TERMINATE RS, LN, OR CS OPTION 

16. SPECIAL ARGUMENTS MUST HAVE ) AS TERMINATION CHARACTER 

17. EH? 

18. UNDEFINED COMMAND ACTION VERB 

19. ILLEGAL INPUT DEVICE 

20. NO DEFINE D OUTPUT DEVICE 

21. ILLEGAL OUTPUT DEVICE 

22. REEL NUMBER SPECIFICATION NOT VALID FOR THIS DEVICE 

23. FILE SPECIFICATION NOT VALID FOR THIS DEVICE 

24. DATA CODE SPECIFICATION NOT VALID FOR THIS DEVICE 

25. MODE SPECIFICATION NOT VALID FOR THIS DEVICE 

26. SEQUENCE SPECIFICATION NOT VALID FOR THIS DEVICE 

27. RECORD SELECTION SPECIFICATION NOT VALID FOR THIS DEVICE 

28. PK/BIN/7T COMBINATION NOT VALID 

29. NULL ARGUMENT (TWO DELIMITERS IN A ROW) 

30. IMPROPER TERAAINATION OF THE COMMAND 

31. ONE REEL NUMBER MUST BE SPECIFIED ON THIS COMMAND 

32. 'TO' OR 'OVER' NOT SPECIFIED 

33. RECORD SIZE EXCEEDS AVAILABLE MEMORY 

34. INVALID DEVICE TYPE FOR THIS COMMAND 

35. MORE THAN THREE REEL NUMBERS SPECIFIED 
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36. OVERFLOW ON NUMBER OF FILES ON 'SPF' COAAMAND 

37. INVALID DIRECTION INDICATOR ON 'SPF' COMAAAND 

38. INPUT RECORD SIZE LARGER THAN 32767 BYTES 

39. INVALID OPTION FOR COPYALL 

40. ACCOUNT SPECIFICATION NOT VALID ON 'SPE' COMMAND 

41. RS SPECIFICATION BEYOND END OF FILE 

42. ERROR IN COMPRESSED INPUT 

43. C OPTION INVALID ON BOTH INPUT AND OUTPUT 

44. RECORD SELECTION INVALID WITH C OPTION 

45. INVALID TAB SPECIFICATION 

46. OVERFLOW ON EDIT LINE NUMBER 

47. ZERO INCREMENT ON CS OR LN OPTION 

48. TX OPTION USED WITHOUT TABS COMMAND 

49. INVALID OPTION FOR COPYSTD 

50. MORE THAN EIGHT READ OR WRITE ACCOUNTS 

51. MORE THAN 16 TAB VALUES 
*52. UNABLE TO DISMOUNT 



DESCRIPTION 

On entry, register D2 is updated to the highest severity level encountered on the command. 
The byte table SEVERE contains the severity level for each error code. If an I/O error is 
being reported (Rl = 0), SR3 is stored in lOERR. A '$' is entered as a scan pointer in the 
error flag buffer. If the error has already been reported, an immediate exit is made. AAany 
commands are scanned twice - once for syntax analysis and once for execution, so it is possible 
to detect severity one errors a second time. 

If an I/O error is being reported, an exit is now made. If a PCL error is being reported 
(Rl / 0), a key is formed by multiplying the error code by 100 and adding a constant that 
forms an EDIT-type file key (UTS only). In BPM, the error code itself is used. The value 
is stored in table ERRFLAG, The first word of ERRFLAG contains the number of entries in 
the table and the subsequent words contain the entries. There is one entry per word and a 
maximum of nine entries. These entries are used by PRTERR to read file ERRMSG. :SYS 
(or to look up in internal table for BPM) to obtain the text of each error message. Control 
is always returned to the caller. 



UTS only 
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PRTERR - Print Error Messages 



PURPOSE 



To print the error messages corresponding to the error codes processed by the ERROR routine. 
PRTERR is called after processing is completed, or has been terminated, for each command. 
It is called if the maximum error severity level exceeds one. 



USAGE 

Calling sequence: 

Input register: 

D2(reg. 13) 



BAL, SR4 PRTERR 



contains maximum error severity. 



INPUT 



CMDBUF 

ERCMDBUF 

ERRFLAG 



J:JIT 

M:DO 

M:EI 

M:LL 

M:UC 

COPYSTDF 



command buffer 

flag buffer containing a '$' pointer for each error 

a table set up by the ERROR routine which contains, 

in the first word, a count of errors reported, followed 

by the ERRMSG file keys for the errors, 

tested for on-line or batch mode. 

diagnostic output DCB 

element input DCB 

command output DCB (batch only) 

terminal I/O DCB 

COPYSTD flag 



OUTPUT 



lOERR 



PRTBUF 



on entry, contains codes returned in SR3 if an I/O error was 
encountered. It is changed to contain the ERRMSG file key 
(or the error code itself) formed from these codes, 
the buffer used for reading and writing error messages. 
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INTERACTION 



Modules used: 



UTILITY - convert binary to BCD (BIN2BCD), convert hexadecimal 

to BCD (HEX2BCD), or close M:EI DCB (CLOSEI). 

Monitor services used (handwritten CALs and FPTs): 

M:DEVICE - used to compare M:LL and M:DO assignments. 

M:OPEN - used to open ERRMSG file (UTS only). 

M:READ - used to read messages from ERRMSG through M:EI DCB (UTS only), 

M:WRITE - used to write messages and flags through M:UC, if on-line, 

or M:DO, if batch mode. 
M:SETDCB - used to set error and abnormal in the M:EI DCB. 



DESCRIPTION 



The PCL command is printed again through the M:DO DCB if this DCB has a different assignment 
from M:LL and if the user is in batch mode. In UTS, the M:EI DCB is opened to the ERRMSG 
file. The significant portion of the error flag buffer (containing '$' pointers) is printed. A Read 
CAL is issued for the ERRMSG file for ecrch key contained in the ERRFLAG table. If a Read is 
not successful, the message 

'PCL ERROR CODE NN' 

is printed and the routine continues to issue additional Read CALs if other PCL errors were 
reported. Each successful Read is followed by printing the error message which was read. When 
all PCL error messages for the reported errors have been printed, a test is made to determine if 
an I/O error was reported. If not, the M;EI DCB is closed and control is returned to the caller. 
If an I/O error was reported, a key is formatted from the error code and subcode which were 
returned in SR3, and a Read CAL is issued for this keyed record in the ERRMSG file. If the Read 
is unsuccessful, the M:EI DCB is closed and the message 

'*****l/0 ERROR NN-S' 

is printed. Control then returns to the caller. If the Read is successful, the I/O error message 
which was read is printed, the M:EI DCB is closed, and control returns to the caller. 

In BPM, the PCL error messages are obtained from an internal table, I/O error messages are 
formatted by PCL from the error codes returned from File Management, 

All output is directed through the M:UC DCB, if on-line, or through the M:DO DCB, if 
batch mode. 
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ID 

COMBINE - Check for Errors in Parameter Combinations 

PURPOSE 

To examine all options specified on a COPY command and check for valid combinations. 

USAGE 

Calling sequence: 

BAL, SR4 COMBINE 
Input register: 

Dl (reg. 12) - current action verb code 



INPUT 



CODE 

DEVICE 

FILE 

MODE 

SELECT 

SEQUENCE 



a word in ARGTBL containing the ID for a data format code 

contains device ID code. 

a two-word table containing a file ID indicator and the 

command buffer index of the file name. 

a four-word table containing IDs for specified modes. 

contains the number of record selection specifications. 

contains record sequencing ID code. 



OUTPUT 



PRTBUF 



used as temporary storage for mode. 



INTERACTION 
AAodules used: 
ERROR 
No monitor services used. 



report error condition. 
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SUBROUTINES 



TESTARG - The TESTARG subroutine is entered many times In order to test 

various parameter combinations. A table EDITBL Is referenced 
to test for legal combinations. This table also contains the 
error codes to be reported for invalid combinations. Input re- 
quirements are as follows: 

Rl - contains address of argument. 
R2 - contains Index into EDITBL. 
R6 - device code. If input; device code +6, 
If output. 

An immediate exit is made If the value of the argument Is zero. 



ERRORS 



'ILLEGAL OUTPUT DEVICE' 

CR or PR was specified as an output device. 

•ILLEGAL INPUT DEVICE' 

LP, CP, or PP was specified as an Input device. 

'REEL NUMBER SPECIFICATION NOT VALID FOR THIS DEVICE' 

A reel number was specified with a device other than LT, DP, or FT, 

'FILE SPECIFICATION NOT VALID FOR THIS DEVICE' 

A file was specified with a device other than DC, DP, or LT. 

'DATA CODE SPECIFICATION NOT VALID FOR THIS DEVICE' 

A data code or data format specification has been used incorrectly. 

'MODE SPECIFICATION NOT VALID FOR THIS DEVICE' 
A mode specification has been used incorrectly. 

'SEQUENCE SPECIFICATION NOT VALID FOR THIS DEVICE' 
CS, NCS, LN, or NLN option has been used incorrectly. 

'RECORD SELECTION SPECIFICATION NOT VALID FOR THIS DEVICE' 
Record selection was specified for on output device. 

'PK/BIN/7T COMBINATION NOT VALID' 

The options BIN and 71 were not specified when PK was specified. 

'ZERO INCREMENT ON CS OR LN OPTION' 
Sel f-expl anatory. 
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DESCRIPTION 

COMBINE examines the contents of ARGTBL to determine if any of the options specified on a 
COPY command are invalid for the device. On entry, a test is made to determine if the field 
being processed is the input or output field. If output, the device code is incremented by six 
to obtain a correct index value into a bit string used in editing combinations. If an input device 
label has been used for output or an output device label has been used for input, the error is re- 
ported and an immediate exit is made. Otherwise, calls are made to TESTARG to edit the device/ 
file combination, the device/data code combination, the device/mode combination, the device/ 
sequence combination, and the device/record selection combination. An additional test is made 
to see that, if PK is specified, BIN and 71 are also specified. Any errors detected in editing 
combinatons are reported by calling the ERROR routine, and COMBINE continues by editing any 
remaining combinations. 
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ID 



DEVTRAN - Translate Device Specification 



PURPOSE 



To translate a device specification of a PCL command. 



USAGE 



Calling sequence: 



BAL, SR4 DEVTRAN 



INPUT 



CMBX 
TERM 

COPYSTDF 
ARGBUFF 



command buffer index of device specification 

terminator of current argument 

COPYSTD flag 

buffer containing current argument 



OUTPUT 



DEVICE 



FILE 

FILE+1 

#DELIM 



three-word table set to the device ID code, the 
number of reel numbers for the device, and the 
CMBX value of the first reel number, 
set to 6 if account number follows a device code, 
set to CMBX value of account number if FILE is set. 
set to 6 to enable '*' as a delimiter when scanning 
reel numbers. Reset to zero when through scanning 
reel numbers. 



INTERACTION 



Modules used: 



ERROR 
FIXARG 
GETARG 
TEXTARG 



report error condition, 
look up device label in table DEVTBL 
extract argument from device specification, 
edit reel number or account specification. 



No monitor services used. 
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ERRORS 



'MORE THAN THREE REEL NUMBERS SPECIFIED' 
Sel f-expl anatory . 



DESCRIPTION 



On entry, the '"^' is enabled as a delimiter by setting *DELIM to 6. The device code is 
scanned in the command by calling GETARG. The EBCDIC device code is looked up in the 
DEVTBL table by calling subroutine FIXARG. If a match is not found and the command is 
other than COPY or LIST, an error is reported by FIXARG. Otherwise, the numeric device 
code is stored in DEVICE. When the device is terminated with a ^ character, that indicates 
that a tape reel number follows. The CMBX value of the first tape reel number is saved in 
DEVICE+2. Each reel number is scanned by GETARG and the number of characters in each 
reel number is checked by the subroutine TEXTARG. Each reel number must have between 
one and four characters. A maximum of three reel numbers is allowed for a free form tape or 
labeled tape specification. The number of reels specified is saved in DEVICE+1. 

When a terminator is not a * character, the '*' delimiter mode is disabled by setting ^DELIM 
to zero. If a '.account' specification follows a device code, FILE is set to 6 to indicate 
a ccount only. The CMBX value of the account is stored in FILE+1. GETARG is called to scon 
the account field and TEXTARG is called to check the field for correct length. Exit is then 
made to the caller. 
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ID 

INTARG - Convert and Check Integer Argument 

PURPOSE 

To convert an integer argument to binary. The converted integer is compared with value limits 
supplied by the caller. 

USAGE 

Calling sequence; 

BAL, SR4 INTARG 

Input registers; 

Rl - minimum integer value 
R2 - maximum integer value 



Output registers: 



Rl - integer in binary 

R2 - type of return (0 = normal, 1 = invalid, 2 = range error) 



INPUT 



ARGBUF4+1 - address of first byte of integer 

NCHAR - number of characters in integer 



INTERACTION 
Modules used: 

UTILITY - convert BCD to binary (BCD2BIN). 

No monitor services used. 
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DESCRIPTION 

The argument at address ARGBUF4+1 is converted to a binary value by the subroutine 
BCD2BIN. If BCD2BIN returns with an error flag, R2 is set to 1 and control is returned to the 
caller. If a normal return is made from BCD2BIN, a range check is made against the values 
input in Rl and R2. If the integer is within range, a normal exit is made with R2 set to zero. 
If the integer is not within range, an exit is made with R2 set to 2. 



IS 



ID 



STORVLP - Store Variable Length Parameters 



PURPOSE 



To store a variable length parameter in the OPEN FPT. This parameter may be name, account, 
password, INSN, OUTSN, read account, or write account. 



USAGE 



Calling sequence: 



Input registers: 



BAL, SR4 STORVLP 



Rl - VLP code (1 = name, 2 = account, 3 = password, 4 = INSN, 
5 = OUTSN, 6 = read account, 7 = write account) 



INPUT 



ARGBUF4 
NCHAR 

OUTPUT 

OPNFPT 

VLPOPEN 

INTERACTION 

Modules used: 

UTILITY 
No monitor services used. 



byte location of argument buffer 
number of characters in argument 



location of the OPEN FPT for the current file. STORVLP 
enters the existence flag for the argument, 
location of the VLP list of the OPEN FPT. If argument is a 
password, a live password entry is made. 



move byte string (MBS). 
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DESCRIPTION 

STORVLP is entered wifh Rl containing a code indicating the type of parameter in the argument 
buffer. If the parameter is a password, the length of the account entry in the VLP is changed from 
five words to two words to make a live password entry. Rl is used as an index into table 
VLPLINK which contains codes for building a VLP entry for each parameter. The parameter 
existence flag is set in the OPEN FPT. The length 5f the parameter is extracted from table 
VLPLINK. This length is zero if the parameter is a file name and the actual length is obtained 
from NCHAR. Subroutine MBS is called to move the parameter from ARGBUFF to the VLP list. 
The word length of the parameter is calculated and entered in the VLP control word. Control 
is then returned to the caller. 



n 



ID 



GETARG - Get Argument" From Command Buffer 



PURPOSE 



To extract the next argument from the command buffer and place it In TEXTC format in the 
argument buffer, 

USAGE 



Calling sequence: 



BAL, SR4 GETARG 



INPUT 



AAAXCMBX 
#DELIM 



pointer to end of command In the command buffer, 
used to select desired delimiter table. The value is 
an index into table DELIMIT and may be set to one of 
the following: 



OUTPUT 



- normal scan mode 

6 - include '*' as a delimiter 

12 - file ID mode 

17 - character string mode 

22 - hexadecimal string mode 



ARGBUFF 
CMBX 

NCHAR 
TERM 



set to contain current argument string in TEXTC format, 

command buffer index which is updated to point beyond 

delimiter of current argument 

set to number of characters in the argument, 

set to delimiter of argument. 



INTERACTION 



Modules used: 



ERROR 
No monitor services used. 



report error condition. 
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ERRORS 



'ARGUMENT GREATER THAN 31 CHARACTERS' 
Se! f-expl anatory , 



DESCRIPTION 

ARGBUFF is blanked. The leading blank flag and trailing blank flag are reset. The current CMBX 
value is placed in a register. The MAXCMBX value is always checked before each character is 
scanned to determine when the End-of-Command is reached. When the End-of-Command is en- 
countered, the termination code of X'15' is set as the field terminator. 

Each character is tested for blank or tab (X*05'). If a tab, the value is changed to a blank for 
further testing. When the character is a blank and is a leading blank, it is ignored and the next 
character is checked. 

When the first nonblank character is encountered, it is checked to determine if it is a terminator. 
If so, return is made to the calling subroutine. 

When the character is text, a check is made to determine if this is the end of a trailing blank string. 
If so, a blank terminator is set and the CMBX value is reduced by one to point to the first character 
of the new field. 

When the text character is part of the current field a check is made to determine that the field does 
not exceed 31 characters. The character is placed in ARGBUFF and the Leading Blank Flag is set 
to reflect the end of the leading blank string. 

When the first trailing blank is encountered, the Leading Blank Flag is reset and the Trailing Blank 
Flag is set. The Leading Blank Flag is reset to cause a shorter blank skipping loop and plays no 
other part in the scan logic. 

The delimiter table is selected by the contents of *DELIM, If this value is 12, it indicates a file 
ID is being scanned and the argument is examined to determine if it is a character (leading quote) 
or hexadecimal (leading X') string. Hexadecimal strings are moved without change to the argument 
buffer; character strings have their outside quotes removed and any double quotes within reduced to 
a single quote. 

At the RETURN address, TERM is set with the termination character. CMBX is set with the byte 
index of the next field. The character count of the current field is placed in byte zero of ARGBUFF 
to make it TEXTC format. The character count is also placed in NCHAR, Control is then returned 
to the caller. 
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ID 

FILTRAN - File ID Translator 

PURPOSE 

To translate the name, account, and password fields of a file ID in a command, 

USAGE 

Calling sequence: 

BAL, SR4 FILTRAN 

INPUT 



CMBX 
TERM 

OUTPUT 

FILE 

FILE+1 

#DELIM 

INTERACTION 

A/lodules used: 

ERROR 

GETARG 

TEXTARG 

No monitor services used, 
ERRORS 



command buffer index of file ID 
delimiter of current argument 



set to number of parameters in the file ID. 

set to the CMBX value of the file name, 

set to 12 on entry. Set to zero before exiting. 



report error condition, 
get next argument, 
check argument length, 



'TOO MANY FIELDS IN A FILE IDENTIFICATION SPECIFICATION' 
More than three fields were specified in a file ID. 

DESCRIPTION 

The CMBX value of the file name is saved in register R6, R5 is set to the code for file name (1), 
GETARG is called to scan the file name. If a ', ' terminator is found, an account name follows, 
R5 is incremented by one. If a password is present, R5 is incremented to three. 

The number of characters in each field is checked by subroutine TEXTARG, The two-word table 
FILE is set to the count of the number of fields (contained in R5) and the CMBX value of the 
file name field. Control then returns to the calling subroutine. 
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ID 



FIXARG - Table Search Routine 



PURPOSE 



To 1bo1< up an argument in d fdtle and return wltti the index of the argument as an ID. 
USAGE 



Calling sequence: 



Input registers: 



BAL, SR4 FIXARG 



Rl - 0-7 error code desired 
15-31 table address 

Output registers: 

Rl - table index of argument 



INPUT* 



ARGBUFF 
SAVCMBX 



OUTPUT 



CMBX 



TERM 



location of argument to be looked up 
CMBX value if called when device label is 
optional; otherwise, zero. 



set to saved value in SAVCMBX if this value is nonzero 

and argument is not in table. 

set to '/' 'f CMBX is set as described above. 



INTERACTION 



Modules used: 

ERROR - report error condition. 

No monitor services used. 

ERRORS 



An error message is produced if a match is not found in the table. The text of the message is 
dependent on the error code supplied in Rl on entry to FIXARG. 
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DESCRIPTION 

The table pointed to by Rl Is searched for the argument contained in ARGBUFF. If a match is 
found, control Is returned to the caller with the table index of the argument in Rl, If a match 
is not found, a test is made to determine if FIXARG was entered to look up a device label and 
the label is optional. If so, the CMBX pointer is restored to point to the beginning of the argument. 
The syntax 'DC/' is simulated by setting TERM to '/' and the code in Rl to 3, This action 
permits the calling routine to look at the argument again as a file name. If a match is not found, 
and the test described above fails, the ERROR subroutine is called to report the error based on 
the error code supplied In Rl. Rl is set to zero before returning to indicate a match was not 
found. 
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TEXTARG - Check Argument Length 

PURPOSE 

To check the length of the argument in ARGBUFF to determine if it falls within the limits 
supplied by the caller. 

USAGE 



Calling sequence: 

BAL, SR4 TEXTARG 

Input register: 

Rl - byte - error code desired 

byte 1 - unused 

byte 2 - minimum number of characters allowed 

byte 3 - maximum number of characters allowed 

INPUT 



NCHAR - number of characters in argument 

INTERACTION 

Modules used: 

ERROR - report error condition. 
No monitor services used. 

ERRORS 

An error message is produced if the length of the argument does not fall within the limits 
supplied by the caller. The text of the message is dependent on the code supplied in Rl on 
entry to TEXTARG. 

DESCRIPTION 



The value in NCHAR Is checked against the limits in Rl. If the number of characters in the 
current argument is within limits, control returns to the caller. If the number of characters in 
the current argument is out of range, subroutine ERROR is called with the error code contained 
in Rl. Control is then returned to the caller. 
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ID 

BCD2BIN - Decimal -to-Binary Conversion Routine 

PURPOSE 

To convert a string of EBCDIC decimal characters to a binary value, 

USAGE 

Calling sequence: 

BAL, SR4 BCD2BIN 

Input registers: 

Rl - byte index of argument into Data Base page 
R2 - number of characters in argument 

Output registers: 

Rl - byte index of terminating character 
R2 - number of unconverted characters in argument 
R3 - converted binary value 

R4 - type of return (0 = normal, 1 = nonnumeric character in string, 
2 = overflow. 



DESCRIPTION 

Each EBCDIC character is obtained from the argument and, if numeric, the low-order four bits 
is extracted. The accumulator (initially 0) is multiplied by ten and the new digit is added to 
the accumulator. Control is returned to the caller when a nonnumeric character is encountered, 
overflow occurs, or the end of the argument string is reached. 
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ID 

BIN2BCD - Binary-to-Decimal Conversion Routine 

PURPOSE 

To convert a binary value to an eight-character EBCDIC decimal integer with leading blanks. 

USAGE 

Calling sequence: 

BAL,SR4 BIN2BCD 

Input registers: 

Rl - binary integer to be converted 

Output registers: 

Rl - binary integer/100,000,000 

R2, R3 - decimal integer (right-justifi«d with leading blanks) 

R4 - number of nonblank characters in result 

DESCRIPTION 

The binary value is divided by ten and a X'FO' added to the remainder. The resulting byte 
is placed in the proper position of R2, R3. This process continues until a quotient of zero 
results from the division by ten. 
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ID 

HEX2BCD - Hexadecimal -to EBCDIC Conversion Routine 

PURPOSE 

To convert a word in hexadecimal to a two-word BCD equivalent. 

USAGE 

Calling sequence: 

BAL, SR4 HEX2BCD 

Input registers: 

Rl - hexadecimal word to convert 

Output registers: 

Rl - input hexadecimal word 

R2, R3 - BCD equivalent of hexadecimal word 



DESCRIPTION 

Each four-bit hexadecimal digit has the proper constants added to it to convert it to EBCDIC, 
The resultant byte is stored into the correct position of R2, R3. Rl is left intact by the routine. 
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ID 

CALLl - CALl, 1 Routine 

PURPOSE 

To issue a CALl, 1 based on information supplied in registers. 

USAGE 

Calling sequence: 

BAL,SR4 CALLl 
Input registers: 

Rl - FPT code right-justified 

R2-Rn - FPT 

INPUT 

DCBADD - contains address of DCB. 

INTERACTION 

A CALl, 1 is issued. 

DESCRIPTION 

The function code is shifted left 24-bit positions and the address of the DCB is OR'ed into the 
register. A CALl, 1 is issued using registers Rl-Rn as the FPT. 
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ID 

CLOSEI - Close M:EI DCB 

PURPOSE 

To close the M:EI DCB if It is open. 

USAGE 

Calling sequence: 

BAL,SR4 CLOSEI 

INTERACTION 

Monitor services used (handwritten CALs and FPTs): 

M:CLOSE - used to close the M:EI DCB. 

DESCRIPTION 

A test is made to determine if the M:EI DCB is closed and, if so, control is returned to the 
caller. If M:EI is open, a CALl, 1 is issued to close the DCB and control is returned to the 
caller. 
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ID 

CLOSEO - Close M:EO DCB 

PURPOSE 

To close the M:EO DCB if it is open. 

USAGE 



Calling sequence: 

BAL, SR4 CLOSEO 

INTERACTION 

Monitor services used (handwritten CALs and FPTs): 

MrCLOSE - used to close and save file assigned to M:EO. 

M:WEOF - used to write end-of-file on free form tape. 

M:PRECORD - used to position free form tape before second 

end-of-file mark. 

DESCRIPTION 

If the M:EO DCB is closed, control is returned to the caller. When the M:EO DCB is not 
opened to a free form tape, the DCB is closed and saved by issuing a CALl, 1. 

In order to set up a free form tape so that additional files may be added with only one file mark 
between files, CLOSEO writes a file mark on the free form tope and positions back over the 
file mark. The tape is now positioned to add additional files with only one file mark between 
files. When the CALl, 1 for the CLOSE is issued, no tope operation results because that last 
operation through the DCB was not a write. Therefore, the tape is left with two consecutive 
file marks if no additional files are added. This is the correct end-of-tope indicator. 
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ID 

CLRARG - Zero Table ARGTBL 

PURPOSE 

To zero the argument table ARGTBL, 

USAGE 



Calling sequence: 

BAL, SR4 CLRARG 

INPUT 



ARGTBL - location in data base of argument table 

DESCRIPTION 

CLRARG is called before a new device specification is processed. All of the arguments set 
up to describe the previous device specification are cleared by zeroing table ARGTBL. 
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ID 

GETPAGE - Get Additional Pages 

PURPOSE 

To get additional pages of memory for the RDWRT copy buffer. This routine is used only in UTS. 

USAGE 

Calling sequence: 

BAL, SR4 GETPAGE 

OUTPUT 

NPAGE - incremented by number of pages obtained. 

INTERACTION 

Monitor services used (handwritten CALs and FPTs): 

M:GP - issued to get desired number of pages. 

DESCRIPTION 



The number of pages in NPAGE (initially 0) is incremented by one, this value is multiplied by 
16 and a CALl, 1 issued to get the computer number of pages. NAPGE is incremented by the 
contents of SRI which is the actual number of pages obtained. 
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ID 

RELPAGES - Release Excess \/0 Buffer Pages 

PURPOSE 

To release addiHonal ^/0 buffer pages which were obtained by GETPAGE, This routine is 
used only in UTS. 



USAGE 



Calling sequence: 

BAL, SR4 RELPAGES 



OUTPUT 



NPAGE - set to zero. 

BUFSIZE - set to 3072 (size of initial l/O buffer. 



INTERACTION 

Monitor service calls (handwritten CALs and FPTs): 
M:FP - issued to release pages. 

DESCRIPTION 

An immediate exit is made if there are no pages to release. Otherwise, the FPT code for 
M:FP is OR'ed into the register containing the page count. A CAL1,8 addressing this register 
as the FPT is issued. NPAGE is set to zero to indicate no excess buffer space. BUFSIZE is 
set to 3072, which is the initial buffer size. 
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ID 

MBS - Move Byte String 

PURPOSE 

To move a byte string of any length. 

USAGE 



.ailing sequence: 



Input registers: 



BAL, SR4 MBS 



Rl - number of bytes to be moved, 

R2 - source byte index into data base 

R3 - destination byte index into data base 



DESCRIPTION 

The number of bytes in Rl is moved from the source byte address to the destination byte address. 
It is assumed that these addresses are indexes into the data base page. The Move Byte String 
instruction is not used in order to have BTM Sigma ^/l compatibility. 
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ID 

REVARG - Exchange fhe Firsf 15 Words of ARGBUF and TOARG 

PURPOSE 

To bring up the input or output arguments for access by exchanging the first 15 words of 
ARGBUF and TOARG. 



USAGE 



Calling sequence: 




BAL, SR4 


REVARG 


OUTPUT 




ARGBUF 


set ! 


TOARG 


set t 


DESCRIPTION 





set to first 15 words of TOARG. 
set to first 15 words of ARGBUF. 



The first 15 words of ARGTBL are exchanged with the 15-word TOARG table. 
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ID 

PRTNOF - Print Total File Count Plus Supplied Text String 

PURPOSE 

To convert and print a file count supplied in SR2 followed by a four-word text string supplied 
by the caller. 

USAGE 

Calling sequence: 

BAL, SR4 PRTNOF 

Input registers: 

R5 - contains pointer to a four-word message which has a X'15' as the last character. 
SR2- file count in binary 

Output registers: 

Same as input. 

INPUT 

J: JIT - used for on-line/batch mode testing. 

M:UC - terminal I/O DCB 

M:LO - used to output message if batch mode. 

OUTPUT 

PRTBUF - buffer used for formatting message to print. 

I NTERACTION 

Modules used: 

UTILITY - convert binary to BCD (BIN2BCD). 
Monitor services used (handwritten CALs arKi FPTs): 

M:WRITE - write message through M:UC (on-line) or M:LO (batch mode). 

DESCRIPTION 



A message of the format '. . NNNN message' is constructed in the print buffer PRTBUF. BIN2BCD 
is called to convert the file count in SR2 to BCD. The count and the caller-supplied message are 
entered in the print buffer and a Write CAL issued to print the message. Exit is then made to the 
caller. 
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ID 

UNPRINT - Test for Unprintable Characters and Enter Argument in Buffer 

PURPOSE 

To test an argument for unprintable characters and, if found, enter argument in the buffer as a 
hexadecimal string instead of a character string. 

USAGE 

Calling sequence: 

BAL,SR4 UNPRINT 

Input registers: 

Rl - pointer to argument in TEXTC format 
D3 - buffer pointer. 

Output registers: 

R2 - number of characters moved to buffer 
D3 - buffer pointer (same as input) 

INPUT 

CCTAB - table used for testing if a character is unprintable, 

DESCRIPTION 

An argument is moved byte-by-byte to the buffer. If an unprintable character is found, the 
routing starts over and moves the argument again but converts it to a hexadecimal character 
string of the form X' '. 
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